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SECTION I 


INTRODUCTION 


ALGOL (ALGOrithmic Language) is a computer language with the unique 
capability for expressing problem solutions as efficient and precise procedures. 


The ALGOL language can be considered an international algorithmic language 
for computing, for it appears to be universal in concept and is effective for 
stating a wide class of algorithms for numerical mathematics and for some 
logical processes. 


ALGOL is comprised of a set of symbols and a set of rules. Associated with 
these are a set of definitions which are peculiar to a description of the 
language, its form, and use. 


ALGOL is composed of statements and declarations. 


@ Statements are used to specify operations to be performed by the 
computer in solving a problem. 


@ Declarations provide the ALGOL compiler with information needed to 
define and link together various elements of the computer program 
during processing. In addition, the existence of declarations within 
the language facilitates the definition of program parameters. 


The statements and declarations in turn are composed of symbols. Some 
ALGOL symbols might conventionally be termed "character strings"; however, the 
definition of a symbol in ALGOL does not imply a single character. Certain 
Symbols are enclosed in apostrophes. These apostrophes are a part of the symbol 
and must always appear when the symbol is used. 


Statements and declarations are translated by the ALGOL compiler and the 
program is executed under the control of the Comprehensive Operating Supervisor 
(GCOS). Only those rules and symbols which govern ALGOL programming on a Series 
600/6000 computer system are considered in this manual. 


eel: BSIil 
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The basic symbols utilized for writing ALGOL programs are as follows: | 


@ uppercase letters A to Z 
@ digits 0 to 9 
@ logical values - 'TRUE', 'FALSE' 


© special symbols 


CEE IOR SO eCle 


Arithmetic Operators 


Definition + 


+ addition 
~ subtraction 
* multiplication 
/ division 
% division 
t exponentiation 
Relational Operators 
Definition 
'LS' less than (<) 
‘LO! less than or equal to (s) 
7 BO? equal to (=) 
*GQ' greater than or equal to (2) 
"GR! greater than (>) 
'NQ' not equal to (#) 
S ol Definition 
"EQV' equivalent (#) 
"IMP! implies (>) 
"OR! or (A) 
"AND! and (v) 
NOT! negation (7) 


The symbols shown in this column are not necessarily available to the user 
fox coding. They are included to show the mathematical meaning of the 
corresponding ALGOL symbol. 
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PUNCTUATION SYMBOLS 


The following symbols have definite functions in the ALGOL language. 


Symbol Definition Use 
‘ period decimal point in numbers 
; comma separator for items ina list 
- COLON separator for statement label 
¢ semicolon separator for statements 
( left parenthesis enclose parameter lists: 


) right parenthesis 
if left bracket 

] right bracket 

: left string quote 


\ right string quote 
: apostrophe 
= arrow 


blank space 


H 


indicate 
expression evaluation 
enclose subscripts 


enclose strings 
indicate exponent 


assignment operator 
space within strings 


These 


STATEMENT TYPES 


special symbols have a 


Fixed meaning in the ALGOL 


"ARRAY! "LINK' 
‘BEGIN? "NONLOCAL ! 
*BOOLEAN' "OWN! 
"CODE ' "PROCEDURE ' 
"COMMENT! "REAL ' 
‘DO: “RENAME! 
"ELSE' "STEP ' 
"END! "STRING! 
"EXTENDED REAL' "SWITCH ' 
"POR "THEN ' 
"GOTO UNTIL" 

ap "VALUE® 

" INTEGER’ "WHILE' 
"LABEL ' 


language. 


There are six types of statements available in ALGOL. Their names and 
brief description of their functions follow: 
statement Types 
Name Function 
Assignment To perform calculations and to assign a value to 
variable or a group of variables 
Conditional To control the execution of individual statements or 
groups of statements 
Dummy To satisfy a programming protocol but it in itself 


performs no operation 


are 
BSil 


‘FOR’ To iterate a sequence of statements 
*GOTO' To transfer control 


Procedure | To call a previously defined sequence of statements 
(e.g., a Subroutine) 


hens ie teste nate al 


There are five types of declarations available in ALGOL. Their names and a 
brief description of their functions follow: 


Declaration Types 


Name Function 
*ARRAY' To define an array, specify its dimensions and its type 
"PROCEDURE ' To define a subset of the computer program (e.g., a 
subroutine) 
*SWITCH' To specify control parameters which govern the sequence 


of program execution 


Type To specify the kind of value which a variable is to 
represent 
*LINK' To permit separate compilation of parts of a program 


Cone NEG. een 


The ALGOL language 1s structured in such a way as to impose rules of 
combining statements and segregating these as programs or subprograms in their 
own right. These concepts are presented in "Compound Statement and Block", 
Section VII. 


INEUT/OUTPUT PROCESS 


ALGOL does not contain statements which allow direct control of the 
input/output process. Thus, no statements or declarations exist for reading from 
or writing on external devices (e.y., READ, WRITE, etc., as in FORTRAN). To 
accomplish the usual input/output operations, procedures are provided which may 
be "called" by the user as subroutines. These procedures are described in 
"Input/Output", Section VIII. 
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WRITING AN ALGOL PROGRAM 


ALGOL programs are divided into logical sections called blocks. The entire 
program is also a block and must be enclosed within the symbols 'BEGIN' and 
'END'. A block may contain any number of sub-blocks within it. 


Variables, arrays, procedures and switches which are used in a block are 
defined in declarations at the beginning of the block. These declarations are 
followed by the statements of the block, Any statement of a block may in itself 
be a block (i.e., it must have block format as described in Section VII) and 
thus blocks may be nested to any depth. ‘ 


All ALGOL statements may be labelled with one or more statement labels: 
i.@., Simple statements, compound statements, and blocks may be labelled. 


Execution of an ALGOL program starts with the first statement and continues 
successively from statement to statement. However, certain statements in the 
language have the power to change the sequence of statement execution. 


Execution of the program is terminated when control reaches the ‘END? 
symbol of the outermost block of the program. 


The following diagram portrays visually the structure of a typical (though 
arbitrary) ALGOL program. Each bracket denoted by 


hoe 


‘END 
represents a block. 


The blocks are composed of declarations and statements (as discussed 
above). The declarations must precede the statements. This diagram represents an 
ALGOL program with three block levels and four blocks. 


"BEGIN' 


"BEGIN' 


"END ' 


"BEGIN' 


"BEGIN' 
"END! x declarations 
» Statements 
"END! 
PEND! 


WRITING RULES AND TECHNIQUES 


Coding 


| The ALGOL program may be written on any 72-column coding form but writing 
will be facilitated if the program is written on forms designed specifical-y for 
the language. 


Columns 1-72 of the coding form may be used for ALGOL statements and 
declerations. ALGOL code may appear anywhere within these columns. 


The coding may be free-form. That is, any number of statements and/or 
declarations may appear on a single line. 


A single statement or declaration may occupy as many lines as is required. 


Blanks may be used freely throughout the ALGOL code to improve the 
readability of the text. The only place in ALGOL in which blanks are Significant 
is in strings. In all other instances they are disregarded by the compiler. 


KS 
t 
NO 
co 
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Since the line format of ALGOL programs is very flexible, it is suggested 
that statement Levels be indented on a new line to improve ease of reading and 
understanding a program. 


Thus each new 'BEGIN' symbol may be indented at a new margin, and the ‘END' 
corresponding to the 'BEGIN' may be placed at the same margin. Since statements 
may contain other statements, each lower statement level may be indented. When 
a higher level is resumed, statements for that level may be placed at the proper 
level margin (see form of the sample program given at the end of this Section). 


Line indenting will in no way affect program execution but tends to make 
the program structure easier to follow. 


When writing ALGOL statements and declarations, there are two important 
rules of punctuation which must be observed. 


iy The semicolon is used as the symbol between statements and between 
declarations. However, the semicolon may be omitted after the last 


simple statement of a compound statement or block. The symbol "END § 
serves as a statement separator in this case. 


Exam 


ples: 
bs Aw 2; 'GOTO' Z@ 


Le 'BEGIN’? ‘INTEGER*® A; ‘REAL' B; Aw-~5.3; Be7.2 ‘END' 


2% The colon is used as the symbol to separate a statement label from a 
statement. 


2. T: ‘BEGIN’ IT+#I+]; d+ J+] "END" 


If it is desired to place comments within the text of an ALGOL program, it 
may be done as follows: 


io To insert a comment between statements or declarations, ov at the 
beginning of a compound statement or a block, the comment must be 
enclosed within the symbols 'COMMENT' ard semicolon. 
Examples: 
Ls A«-B:; 'COMMENT' COMPUTING C; C+A 


2% "BEGIN' 'COMMENT' COMPUTING C; A+B; C+A "END ' 


2 To place a comment after a compound statement or a block (i.e., after 
the symbol 'END') the symbol 'COMMENT' is not necessary. A semicolon 
must be used after the text if an 'END' or '‘'ELSE' symbol does not 
appear. 


Examples: 
ik "BEGIN' A+B; C*A 'END' COMPUTING D; DeC 


a ‘IF' A 'LS' B 'THEN' 'BEGIN' A+B; 
C+A 'END' COMPUTING C D IF A LS B 'ELSE' BeA 


A SAMPLE ALGOL PROGRAM 


cap taantgnte rece 


To illustrate the fundamentals of ALGOL, a sample ALGOL program is 
provided. 


The purpose of this sample program is to merge two sets of numbers. The 
two sets are contained in locations a(l1). O22) ¢epesypat hl) gaeeng BW) “and: bil). 
a e F 
b(2),...,b(j),...,b(m). The numbers in each set are assumed to be arranaed in 
e ? a a 
increasing order. The merged set is contained in locations c(1), c(2);..., 
Gi guece ae 1 


The program operates as follows. The elements of arrays a and b are 
compared. At each comparison, the smaller element is put into the “result “array 
c. When the end of either array a or b is reached, any remaining elements in the 
other array are put into the result array. 


Symbols used in the program: 


201 Description 


identifier of input array 

Identifier of input array 

Identifier of output array 

Subscript bound for array A 

Subscript bound for array B 

Subscript bound for array C 

Subscript for array A 

Subscript for array B 

Subscript for array C 

Controlled variable of 'FOR' statement 


UmROUMN DE POW dD B 


A listing of the program follows. The program is assumed to be a block 
contained in a larger block wherein the value of N, M, and R are assigned, and 
wherein P is defined. 
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Lane 


100 


140 


160 


"END! 


Program Line 


'BEGIN' '"ARRAY' AL1l:N], B[1:M], C[1:R]; 'INTEGER' I, 100 
J, K: I-JT-Kel]1; 130 
START: 'IF' I 'GR' N 'THEN' 120 

"'BEGIN' P+ 0; Q: C[K+P]<-B[J+P]; P+ P+l; 130 

fF! Pp pO. (Med 7 7HEN* "GOTO" “0: TEND? 
"ELSE' 'IF' g 'GR' M 'THEN' 140 
'BEGIN' P=-0O; S: C[K+P]-A[I+P]; P= P+l1; 150 

'TF' Pp 'LO' NeI 'THEN' 'GOTO' S 'END' 
'ELSE' 'BEGIN' 160 
'tF' Afr] 'Go' BLo] 'THEN' 170 
'BEGIN' CLK] -BlLg]; 180 

J+ J+1 'END' 
'ELSE' 'BEGIN' C{[KI-AlLTI]; 190 
T-—I+l 'END'; 

Ke K+l; 'GOTO' START 200 
"END! cae 


oe) 
ho 
CD 


A line by line description of this program is given below. 


Description 
Contains 'BEGIN' for the block, and declarations of variables used. 


Contains an assignment statement which sets I, J, and kK to the value 
Lf 


Contains statement label "START" and the beginning of a conditional 
statement which extends to line 210. The 'IF' clause checks whether 
all of the elements of array A have been compared. 


Contains the true branch of the 'IF' clause of line 120. The true 
branch is a compound statement which moves the remaininae clements, 
if any, Of array B to array C. 


Contains the start of the false branch of the ‘'IF' clause of line 
120. The false branch extends to line 210. The 'IF' clause in this 
line checks whether all of the eclements of array B have been 
compared. 


Contains the true branch of the 'IF!’ clause of line 140. The true 
branch is a compound statement which moves the remaining elements of 
array A to array C. 


Conta ns the Start of the false branch of the *2r? CAS (OF Lone 
140. The false branch is a compound statement enclosed within 
‘BEGIN’ sand "BND and extends to line 210. 


170 Contains an ‘IF' clause which compares elements of arrays A and B. 


160 Contains the true branch of the ‘IF' clause of line 170. ‘The true 
branch is a compound statement which moves an element of array B to 
array C and then updates the B array subscript, J. 


190 Contains the false branch of the 'IF' clause of line 170. The faise 
branch is a compound statement which moves an element of array A to 
array C and then updates the A array subscript, I. 


200 Contains an assignment statement to update the C array subscript, K, 
and a ‘GOTO’ statement to transfer control to the statement labelied 
"START." 

210 Contains "END' for the compound statement starting on line 160. 

220 Contains ‘END’ for the block starting on line 100. 


The structure of the conditional statement of the program is shown in 
Figure 2-1, 


If the condition of line 120 is true, the true branch, line 130, is taken 
and subsequent control goes to iine 210; i.e., the false branch is skipped. If 
tae condition of iine 120 is false, control goes to the false branch, line 140. 


If the condition of line 140 is true, the true branch, line 150, is taken 
and subsequent control goes to line 210; i.e., the false branch is skipped. If 
the condition of line 140 is false, control goes to the false branch, line 160. 


If the condition of line 170 is true, the true branch, line 180, is taken 
1 subsequent control goes to line 210; i.e., the false branch is skipped. If 
condition of line 170 is false, control goes to the false branch, line 190. 


START: ‘IF’... 120 
130. 
- . ‘THEN! 140 
150 
. “THEN! 160-170 
180 
190 
200 
210 


[ 
"ELSE' 


‘TF? 


; ELSE Pre 


Figure 2-1. Outline of Conditional Statement 


SECTION III 


ALGOL LANGUAGE DEFINITIONS 


the following terms are defined as they apply to the ALGOL language. 


A name given to a variable, an array, a label, a switch, and a procedure. 
The name may be composed of any number of letters and digits. However, the name 
must begin with a letter, 


Example: 


A, BETA, M12, T12C7, TOTALAMOUNY 


Blanks are not considered significant in ALCOL except in strings, and they 
may be used freely within identifiers. 


Example: 


AB LE is considered the same identifier as ABLE or ABL E. 


Two different quantities may not have the same identifier unless they 
appear in different blocks. (See "Compound Statement and Block", Section VII for 
clarification.) Certain identifiers are recognized as standard procedures by the 
ALGOL compiler. (See the list of reserved identifiers in Appendix A). 


_ NUMBER 


Integer, rea: number, extended real number. 


INTEGER 


A whole number written without a decimal point consisting of 1 to ill 
decimal digits. The range of an integer n is: 


293 35 


<n< 2 «| 


The precision is to 10 decimal digits. 


en H 
be oo 


Positive integers may have no sign. Negative integers must be preceded by a 
minus sign. 
Examples: 


0,-452,+7586421, 33 


REAL NUMBER 


A series of from 1 to 9 decimal digits written with or without a decimal 
point. If the decimal point appears, it must not be the last character. 


An exponent part may be added to specify the integral power of 10 to which 
the number must be raised. The exponent part is separated from the digits by an 
apostrophe ('). The exponent may also appear alone. 


The range of a real number n is: 


<n 

The precision is to 8 decimal digits. Positive real numbers do not require 
a sign. However, a plus sign is permitted. Negative real numbers require a 
minus Sign. 


Examples: 


LSet 20045, +2520; De *=37. 5°23 


otitis 


a eee 


A series of from 1 to 19 decimal digits written with or without a decimal 
point. If the decimal point appears, it may not be the last character. 


An exponent part may be added to specify the integral power of 10 to which 
the number must be raised. 


The exponent part may also appear alone. 


The range of an extended real number is: 


agt27 < 2127 


<n 


The precision is to 18 decimal digits. 


Positive extended real numbers do not reguire a sign. However a plus’ sign 
is permitted. Negative extended real numbers require a minus sign. 


Examples: 


135982.7834, 21,762°=19 
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STRING 


A sequence cf basic symbols enclosed in the left and right string quotes (" 
and \); or a sequence of basic symbols and strings enclosed in the _ string 
quotes. 


Strings may be used as actual parameters of procedures. 


Examples of strings: 
"A BC\ 


© oh. BCD EVEG \ 


VARIABLE 


A quantity referred to by a name (the variable identifier) whose value may 
be changed. 


The kind of quantity a variable may represent is determined by a type 
declaration and may be either integer, real, extended real, or Boolean, 
Example: 
X, ABC, YZ5N, 


THIS IS A VARIABLE 


sUrS ie ee 


A subscripted variable has the form aby boysasg ly | where a iS an array 
identifier and b1,D2,°0+..,Dyn are arithmetic expressions. 


The number of subscripts n must be the same as the number of dimensions 
declared for a. 


Fach subscript by acts like a variable of type '‘INTEGER' and the evaluation 
of the subscript is understood to be equivalent to an assignment to this integer 
variable. 


Evaluation of subscripts within a subscript list proceeds from left to 
right. The value of the subscripted variable is defined only if the value of 
each subscript expression is within the subscript bounds of the array. 


Example: 


AB(1,3], BOY['IF' B 'EO' C 'THEN' 1 'ELSE' 2] 


3-3 Bois 


A sequence of numbers, variables, subscripted variables, or function calls 
separated by arithmetic operators and parentheses, which represents a rule for 
computing a numerical value. 


1. 


All quantities used in an arithmetic expression must be of type real, 
extended real, or integer. 


For operators +, -, or *, the result of calculation will be integer if 
both operands are integer; real if both operands are real: and 
extended real for all other cases. 


There are two operators which denote division-- / and &%. Both are 
defined for all combinations of real, extended real, and integer 
quantities; however, 


Ae / will give a result of type real only if both operands are real. 
In all other cases, the result will be of type extended real. 


be % will give the same results as / except that the value will 
always be integral. The result is truncated not rounded to an 
integer; i.e., 5% 3 = 01. 


Exponentiation =- 
Be atbtc is equivalent to (aP)°, 
Bs The types of the base and the exponent may be any combination of 


real, extended real, and integer. 


Cc. Lt 


the exponent is an integer, the result is as follows: 


exp. base result 
>0 all same type as base 
a= () #0 same type as base 
=() =Q operation is undefined 
<0 #0 real if base is real, 
otherwise extended real 
<0 =() operation is undefined 
ass If exponent is real or extended real, the result is as follows: 
exp, § base result 
>0 real if base is real, 
=  >0 otherwise extended real 
<0 
>0 =0 real if base is real, 
otherwise extended real 
<0 ==) operation is undefined 
>0 
= <0 operation is undefined 
<0 
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oe Hierarchy of Operators 


a. exponentiation f 
jon multiplication and division * / % 
om addition and subtraction + - 
6% Expressions inside parentheses are evaluated first. 
ve Evaluation proceeds basically from left to right within the hierarchy 


and within parentheses. Function calls and parenthesized quantities 
are evaluated from left to right. 


‘TF! 


CLAUSE ARITHMETIC EXPRESSION 


'IF' a 'THEN' b 'ELSE' c, where a is a Boolean expression, b is a simple 
arithmetic expression, and c is either a simple arithmetic expression or an ga 2 
Clause arithmetic expression. 


The 'IF' clause arithmetic expression causes one of several arithmetic 
expressions to be evaluated on the basis of the value of Boolean expressions. 
The expression to be evaluated is selected as follows: 


lan The Boolean expressions are evaluated one by one in sequence from left 
to right until one having a value 'TRUE' is found. 


2% The value of the 'IF' clause arithmetic expression is the value of the 
first simple arithmetic expression following this Boolean expression. 


ARITHMETIC EXPRESSION 


| Either a simple arithmetic expression or an 'IF' clause arithmetic 
expression. 


SIMPLE BOOLEAN EXPRESSION 


A sequence of variables, subscripted variables, function calls, and 
relations possibly separated by logical operators and parentheses, which 
represents a rule for computing a logical value (i.e., '"TRUE' or 'FALSE'). 


deg Variables and functions used with the logical operators must be 
declared to be of type Boolean. 


2% A relation is composed of two arithmetic expressions separated by a 
relational operator. 


Example: 
RheBtC TEO* Z2ty 


Sus A relation has a value of 'TRUE' if the relation is satisfied; 
otherwise it has a value of 'FALSE'. 


4, The logical operators are defined as follows: 


a. 'NOT' a is true or false if a is false or true, respectively. 

Dy a 'AND' b is true if both a and b are true, otherwise it is 
false, 

Cy a 'OR' b is false if both a and b are false, otherwise it is 
true. 

on a 'IMP' b is false if a is true and b is false, otherwise it is 
true, 

Qe. a 'EQV' b is true if either both a and b are true or both are 


false, otherwise it is false. 


oe The hierarchy of operations in evaluating a Boolean expression is as 
follows: 
a. arithmetic operators - same order as for arithmetic expressions 
ioe relational operators 
one logical operators 
6. The hierarchy of logical operators is; 
a. "NOT! 
Ds "AND! 
Cy "ORS 
a4 "IMP! 
e. -EOV * 
Ts Expressions inside parentheses are evaluated first. 


IF’ CLAUSE BOOLEAN EXPRESSION 


'IF' a 'THEN' b 'ELSE' c, where b is a simple Boolean expression and a and 
c are either simple Boolean expressions or 'IF' clause Boolean expressions. 


The 'IF' clause Boolean expression is evaluated in the same way as an 'IF' 
Clause arithmetic expression. 


BOOLEAN EXPRESSION 


Either a simple Boolean expression or an 'IF' clause Boolean expression, 


EXPRESSION 


Either an arithmetic expression or a Boolean expression. 


36 Bo Ld 


An identifier placed before a statement. 


A statement label must be followed by a colon to separate the label from 
the statement. 


A statement may have more than one label, each one followed by a colon. 


Statement labels are used so that a statement may be referenced. 
Examples: 

l. AB: A+B; 

a AC: 'BEGIN' A*+C 'END'! 

ce AD: "BEGIN' AE: A+E 'END' 


4, AF: AG: AH: A«-H:; 


swlal, where sw represents a switch identifier and a represents an 
arithmetic expression. 


A clause of the form 'IF' b ‘THEN' c 'ELSE' d, where b represents a Boolean 
expression, c may be either a statement label, a switch designator, or a 
conditional designator enclosed within parentheses, and d may be either a 


statement label, a switch designator, or a conditional designator (which need 
not be enclosed within parentheses). 


A statement label, a switch designator, or a conditional designator. 


SIMPLE STATEMENT 


A statement which is not a compound statement or a block. 


Examples: 


assignment 
conditional 
dummy 

<EOR™ 

"GO TO! 
procedure 
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SECTION IV 


STATEMENT AND DECLARATION FORMS 


The form of each statement and 
describes each statement in detail; 


detail. 


po ee 


Name 


Assignment, simple 


Assignment, 'IF' clause 
Assignment, two ‘IF! clauses 


Assignment, n ‘IF’ clauses 


SOE SSE ee etek 


Name 
Conditional, simple 
Conditional, 'ELSE' 
Conditional, two 'IF* clauses 
Conditional, two ‘IF' clauses, 
‘Book 


Conditional, n 'IF' clauses 


Conditional, n ‘IF’ clauses, 
"ELSE" 


declaration is listed below. 
Section VI describes each declaration in 


Section V 


Form 


ay-age- eco @aAnere 


aL-ag~..07an~'IF' by 'THEN' e] 
"ELSE’ e? 


ay#age...ay,e 'IF' b] 'THEN' e] 
'ELSE' 'IF' bo 'THEN' e2 'ELSE’ e3 


ajy~-age...*+aqg* 'IF' bi 'THEN' e} 


"SLSE' 'IF' bog 'THEN' eg 'ELSE' ... 
Tie ba ‘THEN! en "ELSE! Enel 


Form 
'IF' b 'THEN' s 
"IF' b ‘THEN’ sj ‘ELSE S39 


'IF' b ) 'THEN' s, 'ELSE' ‘IF’ ba 
'THEN' s9 


'IF' by 'THEN' sj 'ELSE' ‘IF’ b2 
'THEN' s9 'ELSE' s3 


‘IF' by 'THEN' sj} 'ELSE' 'IF' b2 
"THEN ' Ss? "ELSE! ® @ @ se Sd Dnel 
'THEN' Spn-] 'ELSE' 'IF' by 'THEN' Sp 


'IF' by) 'THEN' sj 'ELSE' 'IF' bg 
'THEN' so 'ELSE' ... ‘IF' by_y 
'THEN' syiy 'ELSE' sp 


che rede emcee 


Name Form 


Dummy (null form) 


FOR" STATEMENTS 


Name Form 
"FOR', expression "'FOR' vee 'DO!' gs 
'FOR', 'STEP' clause 'FOR' v= ey, 'STEP' e9 'UNTIL' e3 'DO' 5 
"FOR', 'WHILE' clause "FOR' vee 'WHILE' b 'DO’ 5s 
"FOR', general "FOR' V#€a]1,89,+-++,ap, *DO' s 


_GO_TO' STATEMENTS 


Name | Form 
"GO TO', label ‘GO TO' a 
‘GO TO', switch designator 'GO TO' sw [a] 
‘GO TO', conditional designator ‘GO TO' 'IF' b 'THEN' dy 'ELSE' ds 


PROCEDURE STATEMENT 


Name Form 


Procedure statement name (a) t ay t ... t ap) 


WARRAY "DECLARATIONS 


Name Form 
"ARRAY! type ‘ARRAY' ALrAQp eee ay 
"ARRAY', 'OWN' ‘OWN! type 'ARRAY' AL rAQee sean 
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PROCEDURE |_DECLARATIONS 


Name 
"PROCEDURE' declaration, 


"PROCEDURE' declaration, 
Specification part 


"PROCEDURE! declaration, 


and specification part 


*"PROCEDURE' declaration, 
function definition 


"PROCEDURE! declaration, 
separately compiled 


SWITCH "DECLARATION 


Name 


"SWITCH' 


ASE oid sheer ten 


Name 


ART 


Type 


Type, 'OWN' 


LINK" DECLARATION 


Name 


"LINK! 


Simple 


value 


Form 


‘PROCEDURE!’ name (aq Ea to ee-<. ty Sin) eS 


*"PROCEDURE' name (aj t a2 t ... 
Sp list; sp list;...3 sp list; s 


‘PROCEDURE' name (aj t ag t ... t an); 
"VALUE! last; sp ist; sp list? ss. 


sp list; s 


type 'PROCEDURE' name (aj t agt... t 


an); “VALUE' list; sp list sp list;...; 


sp list; s 


"CODE" 'BEGIN' d,d9;...;dn 'END' 


Form 


"SWITCH' swedj,d2,...,dn 


Form 


type V]5V2r-e-erVn 


"OWN! type VirV2Qr-2e00%VIQ 


Form 


"LINK® string; 


Bolt 


SECTION V 


STATEMENTS 


DESCRIPTIVE FORMAT 


The description of each statement in the ALGOL language is presented in 
this Section. Each statement description starts on a new page, with the format 
of its descriptive material given as shown below: 


Descriptive name 

(A brief statement of the purpose of the statement) 

Form 

(Form of the statement) 

(Definition of symbols used in the form line) 

Rules 

(A list of rules governing the correct usage of the statement; 


includes restrictions, suggestions, etc.) 


Examples 


(A list of examples illustrating the use of the statement) 


aL Boa 


ASSIGNMENT ASSIGNMENT 


‘cea atts ate EEN 


id Denbe hese eal eco 


Form 


To perform numerical calculations; to perform Boolean operations; to assign 
a value to one or more variables or procedure identifiers in a single statement. 


Ay mw aAQ* oe ~anwe 


Ay rAgress Ay? variables, subscripted variables or procedure identifier 


e: arithmetic or Boolean expression 


This statement causes expression "e" to be evaluated and the result to 
be assigned to Apr Agrees Ane (Note. There need be only one variable; 
S.eGea ye ao e). 


The character "“" signifies assignment of the value of the expression 
to the variable(s). 


The process of assignment is as follows: 


a. Subscripts, if any, occurring in the variables are evaluated from 
tele to right. | 


Di The expression "e" is evaluated. 

Cs The value of the expression is assigned to all the variables 
AY,AQ,r-ee,Aan From right to left across the left side as follows: 
The value of e is assigned to apn, the value of a, is assigned to 
any, etc. Finally, the value of a2 is assigned to aj. 


The types of the variables must be as follows: 


Ae The types may be all Boolean. In this case, the expression "e" 
must be Boolean. 


Dis The types may be real, extended real, or integer. In this case, 
the expressicn "e" must be arithmetic. 


Cue Boolean types may not be mixed with the other types. 


When "e" is an arithmetic expression and its type and the type of 


variable ap, is different, the value of "e" is changed to the type 
specified by an before it is assigned to ay. (See "ALGOL Language 
Definitions", Section III, for forms of integers, real numbers, and 


extended real numbers.) 


In the case in which "e" is real or extended real and apy is an 
integer, "e" is operated upon by the function ENTIER (e+.5). The 
result of ENTIER is the largest integer not greater than the value of 
the argument. This value is then assigned to a,. 
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ASSIGNMENT ASSIGNMENT 


Examples 


When the type of aj and aj_, is different, the value of aj, is changed 
before it is assigned to a 


i-l° 
The case of an aj being a procedure identifier is only used in 
defining functions. (See "PROCEDURE! declaration, function 
definition.) 


In these examples, A, B, C, and D identify 'REAL' type variables. R AND 5 


identify 


dg 


"INTEGER' type variables, and W identifies a 'BOOLEAN' type variable. 


A- B+C 

The value of B + C is assigned to A. 

Ae De BEC 

The value of B + C is assigned to A and D. 
A«+R<- 3.9 

4 1S assigned to R and A. 

R« A+ 3.9 

3.9 1s assigned to A and 4 is assigned to R. 
De Sa 

First, 1 is assigned to J. Then 2 is assigned to J and s[l). 
W+A 'GR' B 


If the value of A is greater than the value of B, W is assigned the 
value 'TRUE'; otherwise, W is asSigned the value 'FALSE', 
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ASSIGNMENT ASSIGNMENT 


ASSIGNMENT, 'IF" CLAUSE 


To permit a choice to be made as to which of two expressions is to be 
evaluated, based on the value of a Boolean expression; to assign the value of 
the evaluated expression to one or more variables or procedure identifiers. 


Form 


aj«*ag~<e-...+ap, ‘'IF' b 'THEN' ej 'ELSE' e2 
A] ,aAQ,-++,An: Variables, subscripted variables or procedure identifier 
b: Boolean expression 


ey,e2: arithmetic or Boolean expression 


Rules 
ci Subscripts, if any, occurring in the variables aj,a2,...,an, evaluated 
from lett Lo Fight. 
Zs The Boolean expression "b" is evaluated. 


33 if the value of bias “TRUE? -6xpression;, e] 1S evaluated; if "FALSE"; 
e2 is evaluated. 


4, After ej] or e2 is evaluated, this statement operates as a simple 
assignment statement with the evaluated expression. 


Examples 
Lg Pe 'IFY © TLS? 10.0 “THEN’ Rk *ELSE” S-+ 1725 
If Q < 10, P receives the value of R, otherwise S + 17.5. 
25 A+B+cCe+'IF' D 'THEN' E 'OR'® F ‘ELSE' G 'AND!' H 


If Dis true, the value of E ‘'OR' F is assigned to A, B, and C. 
Otherwise, the value of G ‘AND’ H is assigned. 
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ASSIGNMENT | ASSIGNMENT 


ASSIGNMENT, TWO 'IF!' CLAUSES 


To permit a choice to be made as to which of three expressions is to be 
evaluated, based on the values of two Boolean expressions; to assign the value 
of the evaluated expression to one or more variables or procedure identifiers. 


Form 


ap+ag+...+a,+'IF' by 'THEN' e) 'ELSE' 'IF' by 'THEN' e9 'ELSE' e3 
ALrAQe+oe Ap: variables, subscripted variables or procedure identifier 
by,b5: Boolean expressions 


Q,,69,23: arithmetic or Boolean expressions 


Rules 
As Subscripts, if any, occurring in the variables Ayragreee, A, are 
evaluated from left to right. 
2s The Boolean expression “Day is evaluated. 
oe If by is true, e) is evaluated; if b, is false, bg is evaluated. 
4. If bg is true, e2 is evaluated; if bg is false, e3 is evaluated. 
on After an expression is evaluated, this statement operates as a simple 
assignment statement with the evaluated expression. 
Example 


R-"IF" T 'THEN' B-6.2 "ELSE' ‘IF' U "“THEN' C=7 ‘ELSE' D$3.5 


If T is true, R is assigned the value of B-6.2. If Tis false and U is 
true, C-7 18 assigned to R. Otherwise, D%3.5 is assigned to R. 


ASSIGNMENT 


To permit a choice to be made as to which of a number of expressions is to 
be evaluated, based on the value of Boolean expressions; to assign the value of 
the evaluated expression to one or more variables or procedure identifiers. 


Form 
AL +“ AQ@mee. man ao 6 aN © 9 ‘THEN’ e] ‘ELSE’ ‘IF’ b9 
"THEN" e9 ‘BUSH 22a “LF * Dn 'THEN' €yn 'ELSE' €n+] 
Ayragrvese, An: Variables, subscripted variables or procedure identifier 
bi ,b2,..-.,bn: Boolean expressions 


Cy rear e core nyy? arithmetic or Boolean expressions 


Rules 

Ls Subscripts, if any, occurring in the variableS aj],A842,...,ay, aré 
evaluated from left to right. 

2% The Boolean expressions bj ,b2,...,bn are evaluated from left to right 
until one is found which has a value of 'TRUE'. 

oe If by is found to be true, then ej is evaluated. 

4, If all the Boolean expressions are false, e@€n4+] will be evaluated. 

5. After step 3 or 4 above, this statement operates as a simple 


assignment statement with the evaluated expression. 


c ({[p 4,2,2] - 'IF' B 'OR' E 'THEN' 5 ‘'ELSE' ‘'IF' T 'THEN' 
7.5 'ELSE' 'IF' A 'LS' C 'THEN' G 'ELSE' L 


C and D [4,2,2] may be assigned the following values: 5 if either B or E is 
true; 7.5 if T is true; the value of G if the value of A is less than the value 
of C; the value of L if none of the above conditions are true. 
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CONDITIONAL CONDITIONAL 


Sie Neti ehgh Nia Miacteeetanlaneed 


To permit a statement to be executed or skipped, depending on the value of 
a Boolean expression, 


Form 


"IF' b 'THEN' s 
b: Boolean expression 


Se: statement 


Lis Statement s may be any one of the following: 
a. assignment statement 


Bs ‘GO TO" statement 


on dummy statement 
d. ‘FOR! statement 
eC. procedure statement 
Te compound statement 
om block 
2s Statement s may have a label. 
oa If the Boolean expression has a value of 'TRUE', statement s is 


executed. If s does not explicitly specify its successor, the 
statement following will be executed next. 


4, If the Boolean expression has a value of 'FALSE', statement s is 
skipped and the following statement will be executed next. 
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RE REN 


CONDITIONAL 


eee sxponteamentcsentean 


Examples 


CONDITIONAL 


'IF' A 'GR' B 'THEN' De-E*F 


If the value of A is greater than the value of B, then the 
E*F is assigned to D. Otherwise, the assignment statement 
and the statement following it is executed. 


value of 
is skipped 


'IF' L 'THEN' "BEGIN' P= P+3; R-17.5-T; L«='FALSE' 'END'; 


‘GO ToO' S9 
If L is true, the compound statement enclosed between '‘'BEGIN' and 
"END' will be executed; followed by 'GO TO' S9; if L is false, only 
"GO TO' S9 will be executed. 


BS11l 


REEL E 


CONDITIONAL CONDITIONAL 


CONDITIONAL, ELSE” 


To permit a choice to be made as to which one of two specified statements 


is to be executed. The decision is based on the value of a Boolean expression. 


Form 


‘TF! 


b 'THEN' s) 'ELSE' s92 


Boolean expression 


S 17S: statements 


Rules 


The statements s} and sg may be any one of the following: 


Ae assignment statement 
b. "GO TO* statement 

Cr procedure statement 
d. dummy statement 

@. compound statement 
£< block 


Statement S39 may also be a 'FOR' statement. 
Statements s] and s?2 may be labelled. 


If the Boolean expression has a value of '‘'TRUE', statement s) is 
executed. If s,; does not explicitly specify its successor, then the 
statement following the conditional statement is executed next; i.e., 
s2 is skipped. 


If the Boolean expression has a value of 'FALSE', statement s2 is 
executed. If s2 does not explicitly specify its successor the 
statement following the conditional statement is executed next. 


CONDITIONAL CONDITIONAL 


anes BN ne er erie amarae, teens cena 


l. ‘IF' A 'LS' B 'THEN' T-T+l 'ELSE' B<B+l; 'GO TO’ Ll 


If Ais less than B,T*+T+l is executed, followed by 'GO TO' Ll. If A 
is greater than or equal to B, B+ B+l is executed, followed by 'GO TO! 
dks 


2% "IF*' R 'AND' S 'THEN' 'GO TO' BOB 'ELSE' JOE: M «N+P; ‘GO TO' BOB 
If the expression is true, control is transferred to the statement 


labelled BOB; if false, the statement labelled JOE is executed and 
then control goes to the statement labelled BOB. © 


SEO Bo Ly 


CONDITIONAL 


ARETE TNE TSR 


CONDITIONAL, TWO IF” CLAUSES 


To permit a choice to be made as to 


which 


OL 


two 


CONDITIONAL 


statements is to 


executed or whether neither is to be executed, depending on the values of 


Boolean expressions. 


Form 


‘IF' by 'THEN' s] ‘ELSE' 'IF' b9 ‘THEN’ so 


b1,b2: Boolean expressions 


$1,539: statements 


Rules 

La Statements $1] and s2 may be any one of the following: 
Ae assignment statement 
log "GO TO' statement 
CO. dummy statement 
as procedure statement 
a compound statement 
Ls block 

2s statement sj may also be a ‘FOR’ statement. 


ae Statements sj] and s32 may be labelled. 


4, If bj has a value of 'TRUE', statement sj is executed. If sj does 
explicitly specify its successor, 


on If by has a value of 'FALSE', 


the 
conditional statement is executed next. 


statement Following 


b2 is evaluated. 


6. If b2 has a value of 'TRUE', statement s2 is executed. If S2 does 
explicitly specify its successor, 


ra If b2 has a value of 'FALSE', 


the 
conditional statement is executed next. 


then s2 is 


statement following 


following the complete conditional statement is executed next. 


be 
two 


not 
the 


Skipped and the statement 


BSid 


CONDITIONAL CONDITIONAL 


Example 


'IF' A 'EQ' B 'THEN' MODE (C,D) 'ELSE' 'IF' A 'GR' B 
'THEN' MEAN (T,D); Re D*F 


If A=B, procedure MODE is executed, followed by R«+D*F. If A#B but A>B, 
then procedure MEAN is executed followed by R*+D*F., If A<B, then only R«D*F is 
executed. 
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CONDITIONAL CONDITIONAL 


CONDITIONAL, TWO 'IF' CLAUSES, 'ELSE' 


To permit a choice to be made as to which of three statements is to be 
executed, depending upon the value of two Boolean expressions. 


Form 


'IF' by) 'THEN' s) 'ELSE' 'IF' bg 'THEN' so 'ELSE' s3 
b,,b9: Boolean expressions 


$4/S82,S3: statements 


a Statements sS}, Sg, and s3 may be any one of the following: 
a. assignment statement 
De ‘GO TO" statement 
oun dummy statement | 
Gis procedure statement 
e. compound statement 
a block 
van Statement Ss3 may also be a 'FOR' statement. 


3. Statements sj, S32, and s3 may be labelled. 


4. If bj has a value of 'TRUE', statement sj, is executed. If sj does not 
explicitly specify its successor, the statement following the 
conditional statement is executed next. 


oa If b, is false, b2 is evaluated. 

Os If b2 has a value of 'TRUE', statement s2 is executed. If s2 does not 
explicitly specify its successor, the statement following the 
conditional statement is executed next. 

7. If b2 has a value of 'FALSE', statement s3 is executed. If s3 does not 


explicitly specify its successor, the statement following the 
conditional statement is executed next. 
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CONDITIONAL _ CONDITIONAT 


Cee RSLS aN TOT aH 


Example 


'IF' L 'THEN' 'GO TO’ BOY 'ELSE' 'IF' R 'GR' S 'THEN’ 
"BEGIN' AwA+1l; CALC (F,10) 'END' ‘ELSE' 'GO TO' CAT; Re R+l 


If L is true, control goes to the statement labelled BOY; if Lis false, RK 
is compared to S; if R>S, the compound statement is executed followed hy R= R+ti. 
If RgS, control goes to the statement labelled CAT. 


CONDITIONAL CONDITIONAL 


CONDITIONAL, n 


LF’ CLAUSES 


To permit a choice to be made among a number of statements as which one 
should be executed, or whether none is to be executed, depending upon the value 
of Boolean expressions. 


Form 


'IF' by 'THEN' sj 'ELSE' 'IF' bg 'THEN' s2 'ELSE' ... 
'IF' bya, 'THEN' sp.) 'ELSE' 'IF' by, ‘THEN’ sy 


b1,09,-..,bn: Boolean expressions 


S1/Sar7-2e2,Sn: Statements 


Each statement sj}, S9,...,S, May be any one of the following: 


a. assignment statement 
Ds "GO TO" statement 

Cc, dummy statement 

ie procedure statement 
e. compound statement 
Ts pLock 


Statement Sy, may be a 'FOR' statement. 

statements S], S2,..-,S, may be labelled. 

The Boolean expressions are evaluated in the order by, b92,..., until 
one having a value of 'TRUE' is found. If bj is true, statement sj is 
executed. If statement sj does not explicitly specify its successor, 


the statement following the conditional statement is executed next, 


If none of the Boolean expressions is true, the statement following 
the complete conditional statement is executed next. 
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ceed 


CONDITIONAL CONDITIONAL 


Example 


'TF’ M 'THEN!' AeA+l]l 'ELSE' 'IF' N 'THEN' 'GO TO' RIL 
'ELSE' 'IF' Pp 'THEN' 'FOR' 1 1 'STEP' 1 'UNTIL' i0 'pDo' 
A{I] - I; L=M 'OR' P 


If M is true, the value of A is increased by 1. If Mis false and N is 
true, then 'GO TO' Rl is executed. If M and N are false and P is true, the 'FOR' 
statement is executed. If M, N and P are all false, the statement L=M '‘'OR' P 
is executed. 


STE ERE 


CONDITIONAL CONDITIONAL 


To permit a choice to be made among a number of statements as to which one 
should be executed, depending upon the value of Boolean expressions. 


Form 
Le * by. “THEN* 164° “ELSE: "IF" ‘bo: “THEN So. “BSE” salve 
"IF" bn} 'THEN' Sy..j 'ELSE' spy 
by,b2,-e+,by +: Boolean expressions 


S1/S9,-e5ee0,Sy,2 Statements 


Rules 

ie Each statement sj, S27-+-+,Sn may be any one of the following: 
A. asSignment statement 
be "GO TO' statement 
Co dummy statement 
ole procedure statement 
e. compound statement 
a block 

2s Statement sy, may be a 'FOR' statement. 


3. Statements Ss], S2,...,Sn may be labelled. 


4. The Boolean expressions are evaluated in the order Dig -Besece, Wnts 
one having a value of ‘YRUE' is found. If by is true, statement Sj is 
executed. If statement sj does not explicitly specify its successor, 
the statement following the complete conditional statement is executed 
next. 

3% If none of the Boolean expressions is true, statement Sy, will be 
executed. If it does not explicitly specify its successor, the 
Statement following the conditional statement is executed next, 
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CONDITIONAL 


CONDITIONAL 


SSRN aid ca re eee tees Sean REI ESAT NOTA EI 


"IF' A "THEN' I«I+l 'ELSE' 'IF' B 'THEN' J+J+l 'ELSE! 
‘IF' C 'THEN' K+ K+l 'ELSE' Le L+l; ‘IF' D 'THEN! 
"GO TO" BAD 


If A is true, the value of I is increased by one. If A is false and B is 
true, the value of J is increased by one. If A and B are false and C is true, 
the value of K is increased by one. If A, B, and C are false, the value of L is 
increased by one. If D is true then 'GO TO' BAD is executed. Otherwise, the 
statement following it is executed. 


DUMMY DUMMY 


To place a label at a particular point in the program. 


Form 


(null form) 


ae 


This statement causes no operation. 


a COUNT: ;: 

COUNT is the Jabel of a dummy statement. 
Ze B3: 3; ABCs: E«E+l 

B3 is the label of a dummy statement. 
cP "BEGIN’...7 TOY: ‘END! 


TOY is the label of a dummy statement. 


"FOR! 


"FOR' 


To permit a statement to be executed for a specified value of a controlled 


variable. 
Form 
"FOR! 


vee 'po'® s 


v: variable or subscripted variable 


es: arithr 


ietic expression 


S: statement 


Examples 


Le 


Variable v is called the controlled variable of the 'FOR' statement. 


e represents a value which is assigned to v. 


Statement s may be a simple statement, a compound statement, or a 
block. 


The 'FOR' statement causes the expression e to be evaluated and its 
value assigned to v. Then statement s is executed. 


After statement s is executed with v having the value of e, the 'FOR' 
statement has been executed. If s does not explicitly specify its 
successor, the statement following the 'FOR' statement is executed 
next. 


After execution of the 'FOR' statement, the value of v is undefined. 


If control is transferred from the 'FOR' statement by a statement 
(within statement s), the value of v is available. 


A ‘GO TO' statement outside the 'FOR' statement may not refer to a 
label within the 'FOR' statement. | 


‘FOR’ ae). "DO* Ala)" 0,0 
This statement causes zero to be assigned to location A[I1]. 


'FOR' R 2*BOYt 2 'DO' 'BEGIN' T+ T+1; 
B([R]+-C[R] '"END' 


This statement results in -C[2* BOY +t 2] assigned to B[2*BOY ¢ 2]. Also, 
the value of T is increased by one. 


"FOR! 


value 


Form 


"FOR' 


TO permit a statement to be executed repeatedly for a specified initial 


? 


increment, and final value of a controlled variable. 


"FOR! vee) "STEP! eo UNTIL ey ‘'pDo' s 


vs: variable or subscripted variable 


ae tak arithmetic expression (s) 


Ss: statement 


Variable v is called the controlled variable of the 'FOR' statement. 


e; represents the. initial value. for Vv; eg is the increment of v; e3 1s 
the final value for v. 


Statement s may be a simple statement, a compound statrment or a 
block. 


The first step in the operation of the 'FOR' statement is that v is 
assigned the value of ey: 


Statement s may be executed a number of times as follows: 


a. A test is made to see if the value of v is beyond the bound 
specified by e3. If it is, statement s will not be executed. The 
statement after s is executed next and the value of v is 
undefined. 


b. If v is within the bound, statement s is executed. 


orn If s does not explicitly specify its successor, the value e9 is 
then added to v (i.e., v-vte zg). If the value of e9 is positive, 
this will have the effect of increasing v. If the value of eg is 
negative, v will be reduced. The process is then repeated at step 
a. 


If control is transferred from the ‘'FOR' statement by a statement 
(within statement s), the value of v is available. 


The value of the controlled variable, the increment and the final 
value may be changed by statement s. Therefore, they are evaluated 
every time reference is made to them. 


A 'GO TO' statement outside a 'FOR' statement may not refer to a label 
within the 'FOR’ statement. | 


Oe 


ta Ta RS 


esse 


"FOR' I-11 'STEP' 1 ‘UNTIL' 10 'DO' A[I]+B[T] 
These statements cause BL1] to BL10] to be assigned to A[1]} to A[l10]. 
"FOR' K+9 "STEP' -2 'UNTIL' 5 'DO' X[K] <Kt2 


These statements cause 81 to be assigned to X[9], 49 to be assigned to 
X(7], and 25 to be assigned to x(5]. | 


‘FOR’ L=1 "STEP* 1 ‘UNTIL’ 5 *DO* “BEGIN' <.: | 
"FOR' ALL] <6 "STEP' 1 'UNTIL' 10 'DOo' B[A[L],b]<L 
"END! _ 


The order of assignments caused by these statements is as follows: 


6 to 10 is assigned to A[1] as 1 is assigned to B[6,1] to B[10,1], 

6 to 10 is assigned to A[2] as 2 is assigned to B[6,2] to B[10,2), 
etc. : | 

rae 6 to 10 is assigned to A[5] as 5 is assigned to B[6,5] to 
B(10,5). 


"FOR! 


FOR” 


¢__ WHILE" 


"FOR' 


CLAUSE 


To permit a statement to be executed repeatedly for assigned values of a 
controlled variable, with repetition controlled by the value of a Boolean 


expression. 
Form 
"FOR' v«+e 'WHILE' b 'DO' s 


vs variable or subscripted variable 


es; arithmetic expression 


b: Boolean expression 


S$: statement 


As 


Variable v is called the controlled variable of the 'FOR' statement. 


Statement s may be a simple statement, a compound statement or a 
block. 


This statement causes statement s to be executed repeatedly as long as 
the value of the Boolean expression b is true. 


This statement operates as follows: 


a. e is evaluated and its value is assigned to v. 
b. The Boolean expression b is evaluated. 
ore It b is true, statement s is executed. If s does not explicitly 


specify its successor, the process is repeated at step a. 

d. If b is false, statement s is not executed and the statement 
following statement s is executed next. The value of v is 
undefined in this case. 


If control is transferred from the 'FOR' statement by a 'GO TO! 
statement (within statement s), the value of v is available. 


The values of either e or b may be changed by statement s. 


A "GO TO' statement outside a 'FOR' statement may not refer to a label 
within the 'FOR' statement. 


on 
Juul 
fxs! 


a=25 B 


"FOR' *FOR' 


Example 


J*+1; 'FOR' I*J 'WHILE' I 'LS' 10 'DO' 'BEGIN' 
A({I]+I; J*+J+1 'END' 


These statements cause 1 to 9 to be assigned to A[1] to A(9]. 


"FOR! "FOR" 


"FOR' GENERAL 


To permit a statement to be executed repeatedly for various conditions 
governing a controlled variable. 


Form 


"FOR! VS AL rAQep eee pA ‘DO* 5 
Vs variable or subscripted variable 


A,14g,+--,a,: arithmetic expression, 'STEP' clause, 
or 'WHILE' clause 


S; statement 


Le Variable v is called the controlled variable of the 'FOR' statement. 

rae A], Agreees4pn May be any combination of arithmetic expressions, 'STEP' 
clauses, or 'WHILE’ clauses. 

ce S INMay be a simple statement, a compound statement or a block. 

4, If aj is an arithmetic expression, a 'STEP' clause or a 'WHILE’ 
clause, the 'FOR' statement operates as previously described. The 
order of operation is Ay AQy eee Ap> 

Example 


‘POR. 2 3,- 2) *STEP* 3 ONT 8, 70, 60, A ‘WHILE' Z, 80 ‘DO P(X) 

First, 3 is assigned to X and procedure P(X) is executed. 

Then the 'STEP' clause causes the following action: 2 is assigned to X and 
P(X) is executed. X is stepped by 1 three times causing it to assume the values 
3, 4, and 5. P(X) is executed after each step of X. Next, xX is assigned the 
value 70, and P(X) is executed. 

Then X 18 assigned the value 60, and P(X) is executed. 

The 'WHILE' clause causes the value of A to be assigned to X. If 2 is true, 
P(X) is executed. This is repeated until Z becomes false. (The values of A and 
Z may be changed by execution of P(X)). 


Finally, 80 is assigned to X and P(X) is executed. 
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eR a eT cette tetera pc aera einen 
'GO TO! 


SSH LEL NO BAU MIND LOSI COLT CTIA SCRE. 


To interrupt the normal sequence of statement execution by defining 
explicitly the successor of the current statement. 


"GO TO’ a 


as statement label 


T4 The statement, 'GO TO' a, causes control to go to the statement with 
label a. 


Le A 'GO TO" statement outside a 'FOR' statement may not refer to a label 
within the 'FOR' statement. 


3. A ‘GO TO' statement outside a block may not refer to a label within 
that block. 


4. A "GO TO' statement outside a compound statement may refer to label 
within that compound statement. 


Exa 


im "GO TO' BOY 
This statement causes control to go to a statement labelled Boy, 


2% "GO TO' T12; M15: A+ A+l; ‘IF' L 'THEN' 'BEGIN'! 
C D*Et2; T12: A+ B+C*F 'END' 


The 'GO TO" statement causes control to go to a statement within a 
compound statement. 
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"GO TO! 


ee 


~GO_TO' 1 


sa ach eA) 


SWITCH DESIGNATOR 


“GO TO 


To interrupt the normal sequence of statement execution by causing control 
to be transferred to one of a number of possible statements, depending on the 
value of an arithmetic expression. 

Form 

"GO TO' sw [a] 

sw: switch identifier 

a: arithmetic expression 
Rules 

i a The switch identifier "sw" must have been defined by switch 

declaration in the current block or in an enclosing block. 

2% The form sw [a] is called a switch designator. 

oe The next statement to be executed is the one whose label is referenced 

through the switch declaration defining "sw". 

4, This ‘GO TO' statement operates as follows: 

Aa. The expression denoted by a is evaluated. From this value an 
integer k is established where k is the result of the function 
ENTIER (a+.5). That is, the largest integer not greater than the 
value of the argument, i.e., if a is 3.7, k=4. 

b. k specifies which element in the list of the switch declaration 


will be referenced; i.e., the leftmost element is numbered l: the 


next 1S 2, etc. 


c. If k is not within the range 1 to n (where n is the number 
the 


elements in the switch designator), control goes to 
statement in normal sequence. 


of 


next 


oe A 'GO TO" statement outside a 'FOR' statement may not refer to a label 


Within that 'FOR' statement. 


6. A 'GO TO' statement outside a block may not refer to a label 


that block. 


within 


os A 'GO TO' statement outside a compound statement may refer to a 


Within that compound statement. 


label 


BSIil 


‘GO TO! "GO * 


"BEGIN' 'SWITCH' AB PB, QB; 
"SWITCH' AC+ PC, QC, AB[X]; 


'GO TO' AB(T]; 


'GO To' ac[y]; 


"END! 


If T has the value 1 when the ‘GO TO' for switch AB is executed, control 
goes to the statement labelled PB. If T has the value 2, control goes to the 
statement labelled QB. If T has any other value, control goes to the statement 
following the 'GO TO' statement. When the 'GO TO' for switch AC is executed, 
control will go to statements labelled PC or QC if Y has the value one or two, 
respectively. If Y has the value three, then execution is equivalent to 'GO To! 
AB(X]. If Y has any other value, control goes to the next sequential statement. 
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‘GO TO! ‘GO TO! 


'GO_TO', CONDITIONAL DESIGNATOR 


To interrupt the normal sequence of statement execution by causing control 
to be transferred to one of a number of possible statements: the statement 
chosen will depend on the value of a Boolean expression. 


Form 


"GOTO" *iF* 5. THEN’ “da *BUSE™ aso 
b: Boolean expression 


dj,d2: designational expressions 


dis A designation expression (d,,d2) is any one of the following: 
a. statement label 
b Switch designator. This has the form sw[a], where sw represents a 
switch identifier and a represents an arithmetic expression. 
om Conditional designator. This has the form 
“LE* “>. *THEN": :c: TELSE® id 
where 

b represents a Boolean expressions; 

c may be either a statement label, a switch designator, or a 
conditional designator enclosed within parentheses; 

d may be either a statement label, a switch designator, or a 
conditional designator (not necessarily enclosed within 
parentheses). 

2 « This statement operates as follows: 
A. The Boolean expression b is evaluated; 
b's If b is true, control is transferred as specified by dj}. 
Cx If the Boolean expression b is false, control is transferred as 
specified by d92. 
Ds A 'GO TO' statement outside a ‘FOR’ statement may not refer to a label 
within that 'FOR' statement. 
4. A 'GO TO' statement outside a compound statement may refer to a_ label 


within that compound statement. 


al BSit 


NNN 


"GO TO! 


'GO TO' "IF' A 'THEN' B 'ELSE' C([I] 


If the Boolean expression A is true, control goes to the statement 
labelled B. Otherwise, control goes to the statement referenced by the 
Ith item in the switch declaration defining C. . 


'GO TO' 'IF' BA 'THEN' LA 'ELSE' 'IF' BB “THEN ' 
LB ‘ELSE’ LC 


If the Boolean expression BA is true, control goes to the statement 
labelled LA. If expression BA is false and Boolean expression BB is 
true, control goes to the statement labelled LB. If both expressions 
BA and BB are false, control goes to the statement labelled LC. (Note: 
dj in this case is a statement label while dg is a conditional 
designator.) 


'GOo TO’ ‘IF' BA 'THEN' ('IF' BB 'THEN' LB 
"ELSE' LC) 'ELSE’ LA 


If both BA and BB are true, control goes to the statement labelled LB. 
If BA is true and BB is false; control goes to the statement labelled 
LC. If BA is false, control goes to the statement labelled LA. (Note. 
d, is a conditional designator, and therefore, must be enclosed in 
parentheses.) 
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PROCEDURE 


PROCEDURE 


Form 


To call for the execution of a procedure defined by a 'PROCEDURE' 
declaration. 


(1) name 


(2) name (ay ta59 tse. Ea 


n) 


name: procedure identifier 


Ayr AQrese Ap? actual parameters 


t: separator 


A procedure statement may have no parameters, as shown in Form (1). 


When there are parameters (Form (2)), each separator t may be either 
"." or ")b:(" where b is only descriptive; i.e., it may be used as 
comments to describe actual parameters. b has no operational 
Significance. 


The procedure identifier must appear in a procedure declaration. 


The number of actual parameters must be the same as the number of 
formal parameters in the procedure declaration. However, the method of 
parameter separation need not be the same in a procedure statement and 
the corresponding declaration. That is, where a comma was used in a 
procedure statement, the form ")b:(" may be used in the declaration 
and vice versa. 


The actual parameters may be any one of the following: 


a. arithmetic expression 

lon Boolean expression 

oun string 

Gs array identifier 

e. switch identifier 

ame procedure identifier 

or designational expression 


Saat 6 Bold 


PROCEDURE 


Examples 


i 


‘SLA EEO YO EI EE 


PROCEDURE 


exer Ot A eT RE 


The correspondence between the actual parameters of the procedure 
statement and the formal parameters of the procedure declaration is by 
their appearance in the respective parameter lists. The two sets of 
parameters must have the same number of items. 


The execution of a procedure statement is as follows: 


A. The formal parameters which appear in a value list of the 
procedure declaration are replaced by the values of the 
corresponding actual parameters. : 


loge These actual parameters are evaluated from left to right 
according to their appearance in the parameter list. 

Cy Formal parameters which are not part of a value list are replaced 
throughout the procedure by the corresponding actual parameters. 


Gis If the identifier of an actual parameter and an identifier 
already in the procedure are the _ same, adjustments will 
automatically be made to the latter so that no conflicts occur. 


e. After the procedure has been modified as above, it is executed. 


If an actual parameter is a string, it may only be used in a procedure 
written in non-ALGOL code. In an ALGOL procedure, a string may appear 
only as an actual parameter for a further procedure call. 


If a formal parameter is an array identifier, the corresponding actual 
parameter must also be an array identifier of the same dimension. 


A switch identifier or string may not be an actual parameter 
corresponding to a formal parameter which is called by value. A 
procedure identifier may not be used as a value parameter unless it 
designates a function with no arguments. 


HIGHVAL (Z, P*(P+1)/2, V, I) 


The procedure which this statement calls is defined in the section 
"PROCEDURE' declaration, simple. In this procedure statement Z denotes 
the number of elements. The value of the largest element of Z will be 
found in V after the procedure call, and I will contain the value of 
the subscript of the largest element. 


SQUAREROOT (At2+Bt2, .000001, C) 


The procedure which this statement calls is defined in the section 
"PROCEDURE' declaracion, specification part. After this procedure 
statement is executed, C will contain the square root of A +B with an 
accuracy of .000001. 


PROCEDURE 


34 


PROCEDURE 


TOT (X, A, 1, N, 1/A* (A+1)) 
The procedure which this statement calls is defined in the _ section 


'PROCEDURE’ declaration, value and specification part. This procedure 
statement will result in the following computation: 


N 
X =) 1/A(A+1) 

A=1 
SUM*+ADD (A, I, N) FUNCTION: (1/A* (A+1) ) 
The procedure which this statement calls is defined in the section 
'PROCEDURE' declaration, function definition. This function call will 
result in the summation of example 3 in ADD and in _ SUM. The symbol 
FUNCTION is used as text and has no operational Significance. 


SUM ADD(P,Q,N*(N+1), ADD(Q,1,N,P/Q) ) 


This statement results in the value of the following computation 
placed in ADD and in SUM: 


N(N+1) ON 
>, P/Q 


P=Q Q=1 


This is an example of a recursive procedure call. 
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SECTION VI 


DECLARATIONS 


The description of each declaration in the ALGOL language is presented in 
this Section. Each declaration description starts on a new page, with the format 
of its descriptive material given as shown below: 


Descriptive name 

(A brief statement of the purpose of the declaration) 

Form 

(Form of the declaration) 

(Definition of symbols used in the form line) 

Rules 

(A list of rules governing the correct usage of the declaration; 


includes restrictions, suggestions, etc.) 


Examples 


(A list of examples illustrating the use of the declaration) 
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"ARRAY ' 


"ARRAY ' 


To specify array identifiers, dimensions, bounds cf subscripts and array 
types. 


Form 


type "ARRAY ° a+ g EX ex, ¢ @ ue § a, 
dL bn ¥i 


type: type word 


Ay rag,e++,78p: array specifier (s) 


a The type word may be any one of the following: 


A. "INTEGER' 

D: "REAL! 

Ce "EXTENDED REAL’ 
d. "BOOLEAN 


2. Type is optional. If it is not used, "REAL' is assumed. The type is 
assigned to each array identifier in the declaration. 


a An array specifier may be either of the form b or b[c], where b 
represents an array identifier and c represents a dimension specifier. 
A dimension specifier has the form dy: e1,0d2: e2,..-,dn: @n, where 
each dy and ej may be an arithmetic expression. n is the number of 
dimensions. dj and ej represent the lower and upper subscript bounds 
of dimension i, respectively. The value of a lower bound may not 
exceed the value of an upper bound. 


4. If an array identifier does not have a dimension specifier, the next 
dimension specifier is assigned. That is, the form bj,b2,..-,bn ([dy: 
e,, dg: e2,-.-,dn: en] is equivalent to the form bj, [d}: ey, dl: 
e7,---,dn: Gn], b2 [dy: @y, do: \greeerdn? Enjre-- by [4y: e}, do: 
CQreeerdn? En]. 


Ds Lower and upper bounds will be evaluated from left to right. The 
bounds can only depend on variables and procedures which have _ been 
defined in a block enclosing the block for which the array declaration 
is valid. Consequently, in the outermost block of a program, only 
array declarations with constant bounds may be used. 


6. The bounds will be evaluated each time the block is entered. 
Ps Every array used in a program must appear in an array declaration. 
8. An array identifier may not appear with subscripts whose values do not 


lie within the bounds specified by the array declaration. 
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"ARRAY' 


"ARRAY' A[1:10] 


The array A is one-dimensional and has a lower subscript bound. “or -4 
and an upper subscript bound of 10. A is assumed to be of "REAL' type. 


"ARRAY' A,B [1:10,1:20] 


Arrays A and B are two-dimensional and have subscript bounds 1 and 10 
and 1 and 20. The arrays are assumed to be ‘REAL’ type. 


'INTEGER' 'ARRAY' A[P:Q], B [1:2*P, 3:5, 1:5] 
The array A is of 'INTEGER' type and has subscript bounds P and Q. B 


is of 'INTEGER' type and is three-dimensional. The bounds of the 
dimensions are 1 and 2*P, 3 and 5, and 1 and 5, respectively. 


G=3 Boil 


To specify array identifiers, dimensions, bounds of subscripts and array 
types; also to specify the condition of arrays upon re-entry into a block. 


Form 


"OWN! 


type 'ARRA 


y! AyprAQrere ran 


types type word 


Ay,aAQ,ee+,A4ns array specifier (s) 


Rules 


"OWN ' 


The array specifiers may be in any of the forms permissible for the 
array declaration. 


All the rules which pertain to array declarations are valid for the 
"OWN' array declaration except: 


a. On re-entry into the block in which the 'OWN' array declaration 
appears the array elements will have their previous values. 


b. The subscript bounds must be integer constants. 
When exit is made from the block (by 'END' or by a 'GO TO' statement), 


the identifiers are inaccessible even though their values have been 
saved. 


'BOOLEAN' 'ARRAY' BA([1:20, 5:15, 1:10] 


The array BA is three-dimensional and is of 'BOOLEAN' type. The bounds of 
the dimensions are 1 and 20, 5 and 15, and 1 and 10, respectively. 
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"PROCEDURE ' "PROCEDURE' 


To define a statement or series of statements as being associated with a 
procedure identifier; to provide a means by which a procedure may be executed 
any number of times in the course of a program although the steps of the 
procedure appear only once. 


Form 


1) 'PROCEDURE' name; s 
2) ‘PROCEDURE’ name (a, t ag t ... t ay)? S 
name: procedure identifier 


Apr Agrees rap: formal parameters 


t: separator 
S: sSravement 
Rules 
The A procedure declaration may have no parameters, as shown in Form (1). 
2 When there are parameters (Form (2)), each separator t may be either 
"," or ")b:(" where b represents any sequence of letters. The function 
of b is only descriptive, i.e., it may be used as comments to describe 
actual parameters. b has no operational significance. 
ae The formal parameters may be any of the following: 
a. variable 
jor array identifier 
Cs Switch identifier 
oe label 
e. procedure identifier 
4. The formal parameters usually appear somewhere in statement s. They 
will be replaced by or assigned the values of the actual parameters of 
the particular procedure statement which calls the procedure. 
oe Statement s may be 
a. a Simple statement 
ley a compound statement 
Ce a block 
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*PROCEDURE' * PROCEDURE 


6. Identifiers which are not formal parameters may appear ins if either 
of the following conditions exists: 


A. s is in the form of a block and the identifiers are declared at 
the beginning of this block. 


bs the identifiers are declared in the block in which the procedure 
declaration appears. 


Vs Statement s always acts like a block insofar as the scope of its 
identifiers is concerned; i.e., a label appearing in s is not defined 
outside the procedure declaration. 


8. The procedure specified may be executed anywhere in the block in which 
the declaration appears by writing a procedure statement containing 
the procedure identifier and the actual parameters, if any. 


8 


*PROCEDURE 
"BEGIN! 
X-A[(1l]; Y-1; 'FOR' I-2 'STEP' 1 'UNTIL' N 'DO! 
"IF' A[LI] 'GR' X "THEN! 
"BEGIN! 
Xe A[I]; YeI 


(A,N) ANS: (X,Y); 


This procedure determines the largest element of an array. Input formal 
eters are: array identifier A and number N of elements. Output formal 
arameters are: value X of largest element and value Y of subscript of largest 
slement. The sym S is used as text and has no operational significance. 
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"PROCEDURE ' | " PROCEDURE 


PROCEDURE” DECLARATION, SPECIFICATION PART 


To define a statement or series of statements as being associated with a 
procedure identifier; to provide a means by which a procedure may be executed 
any number of times in the course of a program although the steps of the 
procedure appear only once; to specify the kinds of quantities actual parameters 
may represent. 


Form 


"PROCEDURE" name (a) t ag t ... t an) 
sp list; sp list;...; sp list; s 
name: procedure identifier 
Ayr agrese sy Ap? formal parameters 
ts: separator 
sp: specifier 


list: formal parameters separated 
by commas 


S° statement 


Rules 

Ve Each separator t may be either "," or ")b:(" where b represents any 
sequence of letters. The function of b is only descriptive: i.e., it 
may be used as comments to describe actual parameters. b has _ no 
Operational significance. 

an The formal parameters may be any of the following: 
a. variable 
Di. array identifier 
om label 
Gs switch identifier 
e. procedure identifier 

By The formal parameters usually appear somewhere in statement s. They 


are replaced at the time of execution by the actual parameters of the 
procedure statement. 


ory BSil 
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4. 


10. 


"PROCEDURE' 


The specifiers may be any of the following: 


"INTEGER' ‘ARRAY? 
EAN! "INTEGER' "PROCEDURE '’ 
"BOOLEAN' "ARRAY! "LABEL' 


"BOOLEAN' "PROCEDURE! "PROCEDURE! 
"EXTENDED REAL! "REAL ' 
"EXTENDED REAL' "ARRAY' "REAL' 'ARRAY' 
‘EXTENDED REAL' "PROCEDURE! "REAL" 'PROCEDURE'! 
"INTEGER! "STRING! 

‘SWITCH ' 


The specifiers indicate for the parameters in their "list" what form 
the corresponding actual parameters should take. (Note: ‘INTEGER’, 
REAL', and 'EXTENDED REAL' may be used interchangeably and the proper 
transformations will take place automatically.) 


A formal parameter may appear in no more than one "list." However, a 
formal parameter need not appear in a "list," except for switches 
which must be specified. 

Statement s may be 

Aa. a Simple statement 

Ds a compound statement 


Cs a block 


Identifiers which are not. formal parameters may appear ins if either 
of the following conditions exists: 


Aa. s 1s a block and the identifiers are declared at the beginning of 
this block. 


on the identifiers are declared in the block in which the procedure 
declaration appears. 


Statement s always acts like a block insofar as the scope of its 
identifiers is concerned; i.e., a label appearing ins is not defined 
outside the procedure declaration. 


The procedure specified may be executed anywhere in the block in which 


the declaration appears by writing a procedure statement containing 
the procedure identifier and the actual parameters, 
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"PROCEDURE ' "PROCEDURE 


CANE AAA A RNS TRI 


*PROCEDURE’ SQUAREROOT (X,E,S)3 
"REAL' X, E, S! 
"BEGIN' "REAL' SA; 
"IF’ X 'LS' O 'THEN! 
"BEGIN' S#«-l; 'GO TO' B 'END'; 
SA@- 13 
As S«- (SA+X/SA) /2; 
"IF' ABS(SA-S) 'GR' E 'THEN! 
"BEGIN' SA+S; 'GO TO' A PEND" 
Bs: 'END' 


This procedure computes the square root. Input formal parameters are: 
umber X whose square root is wanted and accuracy E. Output formal parameter is 
square root S of X. 


"PROCEDURE! 


~PROCEDURE' DECLARATION, VALUE AND SPECIFI CATION 


To define a statement or series of Statements as being associated with a 
procedure identifier: to provide a means by which a procedure may be executed 
any number of times in the course of a Program although the steps of the 
procedure appear only once; to specify which formal parameters are replaced by 
the value of the corresponding actual parameters; to specify the kinds of 
quantities actual parameters may represent. 


Form 


"PROCEDURE' name (ay t ag t ... t apy) 
"VALUE' list: | 
Sp list; sp list;...; Sp list; s 
name: procedure identifier 

AL rAgreee yap? formal parameters 

t: separator 

Sp: specifier 

S: statement 


list: formal parameters separated 
by commas 


Rules 

De Each separator t may be either "," or ")b:(" where b represents any 
sequence of letters. The function of b is only descriptive; i.e., it 
may be used as comments to describe actual parameters. b has no 
Operational significance, 

2% The formal parameters may be any of the following: 
a. variable 
bs array identifier 
oF label 
Gs switch identifier 
e. procedure identifier 

ce The formal parameters usually appear somewhere in statement s. They 


are replaced at the time the procedure is called upon by the actual 
parameters of the procedure statement. 
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"PROCEDURE! "PROCEDURE ' 


10". 


aL 


2% 


However those formal parameters which are listed in the 'VALUE' part 
of the declaration are assigned the current values of the 
corresponding actual parameters before statement s is executed. The 
order of assignment is from left to right according to the order of 
appearance in the formal parameter list. 


The specifier may be any of the following: 


"ARRAY! "INTEGER' '"ARRAY' 
"BOOLEAN! "INTEGER' 'PROCEDURE'! 
"BOOLEAN' '"ARRAY' "LABEL ' 
"BOOLEAN' ‘PROCEDURE! "PROCEDURE! 
"EXTENDED REAL' "REAL' 
"EXTENDED REAL' 'ARRAY' "REAL' "'ARRAY' 
"EXTENDED REAL' 'PROCEDURE' "REAL' 'PROCEDURE' 
"SAT EGER "STRING' 

"SWITCH' 


The specifiers indicate, for the parameters in their list, what form 
the corresponding actual parameters should take. (Note: '"INTEGER', 
"REAL' and 'EXTENDED REAL' may be used interchangeably and the proper 
transformations will be made automatically.) 


A formal parameter may appear in no more than one specification list. 
However, a formal parameter need not appear in a list, except for 
switches which must be specified. 


A formal parameter appearing in the 'VALUE' list must also appear in 
one of the specification lists. 


statement s may be: 


a. a simple statement 
Diy a compound statement 
S; a block 


Identifiers which are not formal parameters may appear ins if either 
of the following conditions exists: 


a. S 1s a block and the identifiers are declared at the beginning of 
this’ plock. 
b, the identifiers are declared in the block in which the procedure 


declaration appears. 


Statement s always acts like a block insofar as the scope of its 
identifiers 1s concerned; i.e., a label appearing in s is not defined 
outside the procedure declaration. 


The procedure specified may be executed anywhere in the block in which 


the declaration appears by writing a procedure statement containing 
the procedure identifier and the actual parameters. 
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"PROCEDURE ' "PROCEDURE ' 


on EE EERE SNARE 


'PROCEDURE' TOT (T,K,L,M, 
"VALUE' L,M; ‘INTEGER’ L, 
"BEGIN' 
T +0; | 
'FOR' K*+ L 'STEP' 1 ‘UNTIL’ M 'DO' 
= 
"END! 


}3 
eS 
a 


This procedure computes the sum of values of a function U between the 
limits of summation L and M. The function U may depend on the summation index kK. 
The sum is generated in formal parameter T. 


*PROCEDURE'! "PROCEDURE ' 


OLR 


To define a statement or series of statements associated with a specific 
procedure identifier as being a function; to provide a means by which the 
appearance of the procedure identifier will cause the function to be performed 
and a value to be given to the identifier although the. steps of the function 
appear only once. 


Form 


(1) type 'PROCEDURE' name; s 
(2) type 'PROCEDURE’ name (a, t ag t ... t ap);s 


(3) type 'PROCEDURE' name (a, t ag t ... t an); 
Sp list; sp list;...; sp list; s 


(4) type "PROCEDURE' name (aj, t ag t ... t an); 
'VALUE' list; 


sp list; sp list;...; sp list; s 
type: type word 
name: procedure identifier 


Ayragr eee yap’ formal parameters 


ty Separaror 

Sp: specifier 

S: statement 
list: formal parameters separated 


by commas 


Rules 
dix A procedure declaration may have no parameters, as shown in Form (1). 
oi When there are parameters (Forms (2), (3), and (4)), each separator t 
may be either "," or ")b:(" where b represents any sequence of 
letters. The function of b is only descriptive; i.e., it may be used 
as comments to describe actual parameters. b has no operational 


Significance. 
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"PROCEDURE' "PROCEDURE ' 


LO 


Ls 
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The type word may be any of the following; 


Ae "INTEGER' 

ome "BOOLEAN ‘ 

Cx "REAL" 

as "EXTENDED REAL' .. 


The type word identifies the type of the procedure identifier. 


At some point in the procedure body, i.e., in statement s, the 
procedure identifier must appear on the left side of an assignment 
statement. When this statement is executed, the function receives a 
value, and it is this value which is used when the procedure 
identifier appears in an expression. The function receives a value 
according to the type specified by the type word. 


The procedure identifier may appear on the left side of any number of 
assignment statements. It is the last one to be executed from which 
the function receives its value. 


The formal parameters may be any of the following: 


Ae variable 

b. array identifier 

on" label 

om switch identifier 

e. procedure identifier 


The formal parameters usually appear in statement s. They are replaced 
at the time the procedure is called upon by the actual parameters of 
the function call. 

There may or may not be a ‘'VALUE' declaration in a function 
definition. If there is, the rules which apply are the same for all 
procedure declarations. 


The specifiers which may be included, and the rules which apply are 
the same for all procedure declarations. 


Statement s may be 

a. a simple statement 
om a compound statement 
or a block 


Identifiers which are not formal parameters may appear ins if either 
of the following conditions exist: 


a. S 1s a block and the identifiers are declared at the beginning of 
this block. 
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"PROCEDURE ' "PROCEDURE 


12. 


13. 


Examples 


ig 


lon the identifiers are declared in the block in which the procedure 
declaration appears. 


Statement s always acts like a block insofar as the scope of its 
identifiers is concerned, i.e., a label appearing in s is not defined 
outside the procedure declaration. 


The function which this declaration defines may be executed anywhere 
in the block in which this declaration appears by writing in an 
arithmetic or Boolean expression, the procedure identifier, and the 
actual parameters, if any. 


*"REAL' °*PROCEDURE' ADD (K,L,M,U): 
"BEGIN' ‘REAL’ W: 

W<+ 03 

"FOR' K«- L 'STEP' 1 ‘UNTIL’ 

M "Do! 

W = W+U3 

ADD <-W 

"END! 


This function computes the sum of values of a function U between the 
limits of summation L and M. The function U may depend on the 
summation index K. Upon exit from the function, the sum is contained 
in ADD which is of type 'REAL'. 


"INTEGER' "PROCEDURE' FACT (X) ; 
Tir’ xX "EO" 1 “THEN* FACT <1. *ELSE* 
FACT + X* FACT (X-1) 


This is an example of a recursive procedure declaration. Execution of 
FACT(2) causes FACT(1) to be executed because of the statement 
FACT +2* FACT(1). Then FACT will have the value 2*1. Execution of 
FACT(3) causes FACT to have the value 3*2*1. If this procedure is 
called n times, FACT will have the value n factorial. 
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"PROCEDURE 


"PROCEDURE ' 


' PROCEDURE "DECLARATION, _ 


SEPARATELY COMPILED 


To provide a technique for communicating with separately compiled 
procedures. 


Form 


(1) 'CODE' 
(2) 'CODE' 'BEGIN' dy;d9;...;dy 'END' 


dy,d2,..-,dy,: code declarations 


ig Form (1) or Form (2) above are to be used in a procedure declaration 
in place of statement s when it is desired to write a procedure 
outside an ALGOL program. The procedure may be written either as a 
separately compiled ALGOL program or as a procedure compiled in some 
other language (e.g., GMAP). 
2. Each dy may have any one of the following forms: 
a. WN' type "ARRAY' a],a2,..-,/48n 
where type and a ,,a2,-.-.,an have the same meaning as described 
under Array declaration, 'OWN'. This code declaration declares 
'OWN' arrays whose storage will be reserved in the declaring 
program but whose identifiers will be valid only in the 
separately compiled procedure. 
b. "OWN' type Vyz/VQr-*e/Vn 
where type and vj,v2,---,Vn have the same meaning as described 
under Type declaration, 'OWN'. This code declaration declares 
7OWN? variables whose storage will be reserved with the declaring 
program but whose identifiers will be valid only in the 
separately compiled procedure. 
Ce *"NONLOCAL ' AYLrAQrese Aan 


where a,,;82,-.-,an may be any of the following: 


1) variable 

2) procedure identifier 
2) array identifier 

4) switch identifier 

a) label 
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"PROCEDURE! *"PROCEDURE' 


LAAT UTA EEA TITS 


Example 


This code declaration makes the specified identifiers of the 
declaring procedure available to the separately compiled 
procedure. 


The procedure identifier of a separately compiled procedure and all 
the identifiers specified in a, b, and c above must be unique in 6 
characters. (A character is either a letter or a digit.) 


For all procedures defined as 'CODE', a SYMREF will be produced in the 
declaring program. 


SYMDEFS will be produced for all 'OWN' variables and arrays. In _ the 
case of an 'OWN' variable, the SYMDEF will point to the _ storage 
location for the variable; in the case of an 'OWN' array it will point 
to the first word of the alpha vector for the array. 


There will be a SYMDEF associated with each entry in a 'NONLOCAL' 
list. 


Ae For a procedure identifier, the SYMDEF will point to the entry 
location of the procedure. 


iow For a switch identifier, the SYMDEF will point to the entry 
location for the body of code which evaluates the switch. 


ome For a variable identifier, the SYMDEF will define either the 
absolute location or the stack relative location of the variable, 
depending on whether the variable is nonprocedural or procedural. 


ds For a label, the SYMDEF will point to the location of the label. 


e. For an array identifier, the SYMDEF will point to the first word 
in the alpha vector for the array. The pointer will be absolute 
or stack relative, depending on the point of definition of the 
array. 


The user of a 'CODE' procedure is completely responsible for proper 
manipulation of the stack pointer, for setting of the available space 
pointer, and for correct usage of the various ALGOL constructs made 
available to him. 


Tt is possible to remap the internal name of a separately compiled 
procedure into a different set of 6 or fewer characters which will be 
used as its SYMREF. This is accomplished with the ALGOL word 'RENAME' 
followed by a string containing the desired external name. This 
construct follows the formal parameter list and precedes the word 
'CODE'. The 'RENAME' string may consist of any combination of 6 or 
fewer characters and/or decimal points. 


'"PROCEDURE' INPUT 0 (a, string); 'RENAME'" ,AOIPT\; 'CODE' 


aOR 


"SWITCH' 


SWITCH " DECLARATION 


"SWITCH ' 


To set up a list of statement labels and/or switch designators which will 


be referred to by subsequent 'GO TO' statements. 


Form 


'SWITCH' sw+dj1,d9,.../dp 
sw: switch identifier 


d,,d9,---,d,: designational expression (s) 


i This statement defines the switch identifier sw as being associated 


with a list of designational expressions separated by commas. 
28 A designational expression (dj) is any one of the following: 


A. a Statement label 


Dis a switch designator. This has the form sw[a], where sw represents 
a switch identifier and a represents an arithmetic expression. 


om a conditional designator. This has the form 
STE (> THEN <C- =EDSE” od 
where 


b represents a Boolean expression; 


c may be either a statement label, a switch designator or a 


conditional designator enclosed within parentheses; 


a May be either a statement label, a switch designator, or a 
conditional designator (not necessarily enclosed within 


parentheses). 


cv Each designational expression is identifier by a positive integer - 


the leftmost with 1, the next with 2, etc. 


4, When a 'GO TO' statement involving a switch designator is encountered 


in the program, the subscript of the switch designator is 


given an 


integral value. It is this value which determines which element of the 


list is referenced. 


oF If the list item referenced is a conditional designator, 


the ‘IF! 


clauses are evaluated until a designational expression involving only 


a label or a switch designator is reached. 


"SWITCH ' "SWITCH' 


Gs If the list element referenced is a label, it specifies directly the 
next statement to be executed. 


vie If the element is a switch designator, it in turn references another 
"SWITCH' declaration. The subscript of the switch designator is 
evaluated to locate the correct list element of the new 'SWITCH' 
declaration. | 


Bs This process may be repeated through any number of rSWi TCH" 
declarations until reference is made directly to a statement label. 


oe Each time an element in the list of a ‘'SWITCH' declaration is 
referenced, any expressions the element may contain are re-evaluated. 


"SWITCH' BA+ PA, 'IF' S 'THEN' PB 'ELSE' PC, AC[X] 


This switch may be called by a statement such as 'GO TO' BA[D] which 
operates as follows: If D has the value 1, operation is equivalent to operation 
of 'GO TO' PA, where PA is a statement label. If D has the value 2, operation is 
equivalent to operation of 'GO TO' 'IF' S 'THEN' PB 'ELSE' PC, where S is a 
Boolean expression and PB and PC are statement labels. If D has the value 3, 
operation is equivalent to operation of 'GO TO' AC[X] where AC is a_ switch 
identifier and X is an arithmetic expression. If D has any other value, the 
statement following the 'GO TO" is executed next. 


he 
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ARATIONS 


To specify which variables represent integer, real, extended real, or 
Boolean quantities. 


Form 


type V1 0VOe 6 © © °Vn 


type: type word 


VieVore%e0 Vn? variable(s) 


The type word may be one of the foliowing: 


2EAL', 'EXTENDED REAL', 'INTEGER', or 'BOOLEAN’. 
The type word specifies the type of the variableS Vz ,Vgre++6Vp- 


Each variable used in a program must be declared in a type 
declaration. 


No variable may appear in more than one type declaration in a single 
block. 


The type declaration is valid only for the block in which the 
declaration appears. Outside this block the identifiers may be used 
for other purposes. 


The type declaration is valid for any blocks contained within the 
block containing the type declaration. However, variables may be 
redeclared in sub-blocks, in which case the previous declaration is 
superseded. 


When exit is made from a block (by 'END' or by a ‘'GO TO' statement) 
all identifiers which were declared for the block are undefined. 


TYPE 


Example 


"BEGIN' ‘INTEGER' P,Q; 


P+ 3: Q+2; 


'BEGIN' '"REAL' P,R; 


Roe} 
Pe]; 
S(1] +P; 
ae +O; 
S[3] <—R 

"END'; 

S[4] <P; 

S{5] +Q 
"END! 


'INTEGER' "ARRAY' S[1:5]; 


These statements assign the numbers 1,2,2,3,2 in this order to elements of 


the array S. 


BSil 


TYPE TYPE 


TYPE, 'OWN' 


To specify which variables represent integer, real, extended real, or 
Boolean quantities; to provide a means for retaining previous values of certain 
variables upon re-entry into a block. 


Form 


"OWN' type Vz/V2rco%+rVp 
type: type word 


VyirV2reeer Vy? variable(s) 


Rules 
die The type word may be one of tne following: 
'REAL', "EXTENDED REAL', ‘INTEGER', or 'BOOLEAN'. 

The type word specifies the type of the variables VzyrVgrecer Vy: 

ean Each variable used in a program must appear in a type declaration. 

3% No variable may appear in more than one type declaration in a _ single 
block. | 

4. Only variables whose values are to be preserved for possible re-entry 
into a block should be specified by an ‘'OWN' type declaration. All 
other variables should be declared in a regular type declaration. 

on The variable identifiers declared in any type declaration are defined 


only for the block in which they appear. Outside the block the 
identifiers may be used for other purposes. 


6. When an exit is made from a block (by 'END' or by a 'GO TO’ statement) 


the identifiers are inaccessible although their values have been 
saved. 


Example 


B 


ee 


'"BEGIN' 'REAL' C: ‘OWN’ 'REAL' D; 
rIr* A *HO’ 6. “THEN 
"BEGIN' 

Ce7: 
D+ 8; 
Ae 93 
'GO TO' E 
"END': 
A«- D=-2 
"END! : 
E: 'IF' A 'NQ' 6 ‘THEN’ 'GO TO' B 
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TYPE TYPE 


During the first execution of block B, 7 is assigned to C, 8 is assigned t 
D and 9 is assigned to A. Execution of the conditional statement labelled 
causes block B to be executed again. During this execution, A is set to 
because the previous value of 'OWN' variable D is saved. However, variable 
could not be used in this way because not being 'OWN', its value is not saved. 


OQOnwWO 
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"LINK' 


ESA Se 


rLINK* 


To permit separate compilation of parts of a program while retaining the 
"environment" of the entire program; to allow different parts of a program to 
occupy the same area of storage at object execution time. 


Form 

"LINK' s:; 

S: string 

des Links may be blocks, procedures, or function procedures. 

2 Links may have sublinks which may have sublinks, etc. 

cm Links must be separately compiled. 

4. All identifiers which would have been known to a link, had its coding 
appeared in the program, will be known to the link without = special 
indication. 

Note. Currently the one exception is a code-body procedure. This must 
be redeclared in the link. 

oe The declaration for a block link is: 

"'BEGIN' 'LINK' "NAME\; 'END' 
The declaration for a procedure iink is: 
"PROCEDURE' ABC (X,Y); ‘LINK' "NAME\; 

6. The string following the declarator 'LINK' may contain up to _ five 
alphanumeric characters. (A period may also be used.) 

Vs The name following 'LINK' must be unique within a program. Here a 
program means a main program plus all links and sublinks pertaining to 
it, 

8. For a link compilation, the first basic symbol must be 'LINK'. This 


must be followed by the name string which appeared in the declaring 
program. 


For a block link compilation: 


'LINK' "NAME\; 'BEGIN' declarations and statements 
-ENDe 
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"INK" 


tn es 


12 ¢ 


dip 


14, 


"LINK' 
Fora procedural link compilation: 
"LINK' "NAME\; 'PROCEDURE'! 
‘OWN’ declarations are allocated storage in the declaring program. It 


is the programmer's responsibility to ensure that 'OWN'! values, which 
are to be saved, are not overlayed by another link. 


No special calling sequence is necessary to invoke a block link or a 
procedure link. 


For programs which are links or which contain link declarations, a 
link file (file code LF) must be provided with a GCOS file control 
card. This file may be assigned to magnetic tape, linked disk, or 


linked drum. 


When compiling a link the environment of the main program must be 
known to the link. This is provided by the link file IF. This means 
that the link file which was prepared by a program in which a link was 
declared must be used when that link is compiled. 


The name following 'LINK' is the name which will appear on the $ LINK 
COntrol. card. 


A $ ENTRY control card must also be provided for each link. The name 
on this card must be the 'LINK' name preceded by a period. 


*LINK' 


Example 


49 i 1 HT 


ww Ut 


417 <9 47 


4A in 


OPTION ALGOL 
ALGOL 

DISC LF ,X1S,5L 
"BEGIN' 


'BEGIN' 'LINK' "NAMEA\: 
'BEGIN' 'LINK' “NAMEB\; 


® 


"END! 

LINK  NAMEA 
AEGOL 

Brsc. “ER iS 5. 
'LINK' "NAMEA\; 
'BEGIN' 


6 


*"PROCEDURE' ABC; ‘LINK' 


® 


'END! 

ENTRY .NAMEA 

LINK NAMEC 
REGOL 

DISC LF,X1S,5L 
'LINK' "NAMEC\; 


"END ' 
"END ' 


we 3 e 


"NAMEC\; 


'PROCEDURE' ABC; 'BEGIN'....'‘END' 


ENTRY .NAMEC 

LINK NAMEB,NAMEA 
ALGOL 

DISC LF,X1R,5L 
'LINK' "NAMEB\; 
'BEGIN' 


@ 
@ 


& 


"END! 
ENTRY. NAMEB 
EXECUTE 
TAPE H*,X1R 


"LINK ' 
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"LINK ' "LINK! 


These would appear in memory at execution time as 


Main program plus 
library routines 


Link NAMEA 


Link NAMEB 


Link NAMEC 


Link NAMEC is a sublink of link NAMEA. When link NAMEB is called, it would 
overlay memory occupied by links NAMEA and NAMEC, 
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COMPOUND STATEMENT AND BLOCK 


DESCRIPTIVE FORMAT 


The description of the compound statement and block is presented in this 
Section. Each description starts on a new page, with the format of its 
descriptive material given as shown below: 


Descriptive name 


(A brief statement of the purpose of the statement) 


Form 


(Form of the statement) 
(Definition of symbols used in the form line) 


Rules 
(A list of rules governing the correct usage of the statement; includes 


restrictions, suggestions, etc.) 


Examples 


(A last of examples illustrating the use of the statement) 
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COMPOUND STATEMENT COMPOUND STATEMENT 


To permit a series of statements to be joined together in such a way as_~ to 
act as a unit. 


Form 


"'BEGIN' SyiSgiece? Sy "END ° 


SyrSgreee7Sy? statements 


le 


L% 


A compound statement may have a Jabel and may contain any number of 
statements (sj). 


Each statement Sy/SQree27Spy May be 
Ae a Simple statement 

Du a compound statement 

on a block 


lent may have a label. 


A 'GO TO' statement may transfer control to a statement within a 
compound statement. 


Ie-l1; 
Ts: "TF*’ ZF 'LO' 19 ‘'THEN' 
'BEGIN' 
A[I] +I; 
I-+I+l; 
'GO TO" TF 
"END! 


These statements assign the numbers one to ten to elements of the 
array A. This example contains a compound statement as the true branch 
of a conditional statement. 
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COMPOUND STATEMENT C 


25 'FOR' I+] 'STEP' 1 'UNTIL' 10 'bo! 
"BEGIN 
'FOR' J «+1 "STEP 1 *UNTIL' 10 'DO' 
"BEGIN' 
'IF’ I 'EQ' J 'THEN' 
"BEGIN' 
B(I,dJ] +1; 'GO TO' S 
"END': 
B(r,J7] + 0; 
Ss: "END! 
‘END! 


These statements generate a ten by ten unit matrix in the array B. 
Each ‘FOR' statement has a compound statement as its object. Also, the 
true beanch of the ‘IF' statement 1S a compound statement. 
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BLOCK BLOCK 
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BLOCK 


To permit statements and declarations to be grouped together in such a way 
as to be independent of other parts of a program. This permits labels = and 
identifiers to be used in different sections of a program without conflicts. 


Form 


"BEGIN! Gy dai oe et dni Sz FSQi- eet Sy ‘END! 
dy,dg,-.-,d,: declarations 


SyrSarece Sys statements 


Rules 

se A block may have a label, and may contain any number of declarations 
and statements. 

2s Each statement Sy rSor2o%e7Sp,) May be 
ae a simple statement 
Ds a compound statement 
Gs a block 

ay Each statement may have a label. 


4. When a block is entered through 'BEGIN', the identifiers which are 
declared for the block are newly defined and lose any significance 
they may have had prior to entry. 


Dx All labels within a block are local to the block and may not be 
referred to from outside. 


6. When exit is made from a block, all identifiers which were declared 
for the block are undefined and may be used for other purposes, 
including those declared as 'OWN'. 


14 If a declaration is prefaced with 'OWN', the identifiers so defined 
will retain their previous values upon re-entry into the block. If 
'OWN' is not specified, the values will be lost when exit is made from 
the block and will be undefined upon re-entry. 

a All identifiers used in a program must be declared in one of the 


once in a Single block. 


Dis If blocks are nested, a statement label has meaning only in _ the 
smallest block containing that statement. 


AAT A 


BLOCK 


"BEGIN' "REAL' X,Y; 'ARRAY' A[1:5]; 


X«-l: Ye2: 
"BEGIN' '"REAL' X,Z; 
Ze Y:3 
x «3; 
A(1] - xX; 
A[2]<+yY; 
A[3] +z 
"END! 
A[4]-xX; 
A[5]+yY 
"END! 


BLOCK 


These statements assign the numbers 3,2,2,1,2 in this order to elements of 


the array A. 
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INPUT/OUTPUT 
INPUT/OUTPUT PROCEDURES 
The ALGOL language itself provides no input/output statements. However, 


the ALGOL compiler contains within it a number of procedures which handle the 
I/O. All a programmer need do is to call the existing procedures using an ALGOL 
procedure statement, and through the procedure parameters, transmit the 
information required for the input and/or output process. 


The procedure identifiers used by ALGOL are reserved and act as though declared 
in a block enclosing the program. If a programmer redeclares one of these 
identifiers in his program his declaration supersedes the standard definition. 
The procedures provided are listed below: 


® Procedures pertaining to the layout of the I/O information on the 
external device: 


(n=0,1,2,.2-,9) 


NO DATA 
TABULATION 
VEND 
VLIM 


@ Procedures dealing with the actual transmission of data: 
INLIST 
INPUT n (n=0.1,2 766459) 
OUTLIST 
OUTPUT n (n=0,1,2,...,9) 
i Procedure allowing fine control over the input and output processes: 
SYSPARAM 


® Primitive procedures: 


INSYMBOL 
LENGTH 

NAME 

OUTSYMBOL 
STRING ELEMENT 
TYPE 


® List procedure: 


A user-declared procedure providing a list of the data items to be 
transmitted. 
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Each procedure is discussed in detail below, and the form of the procedure 
call is given. 


INPUT/OUTPUT_DEVICES 


The procedures to be described in this section deal with the appearance of 
the data on an input or output device. All of the procedures describe a printed 
page. However, the concepts may be generalized to include any external device. 


Listed below are the physical characteristics of the I/O devices. The number of 
characters per line is referred to as P. The number of lines per page is 
referred to as P'. 


P Pp! 
Device (characters) (lines) 

Line Printer 120 DD 

Card Reader (binary) 160 no limit 
Card Reader (decimal) 80 no limit 
Card Punch (binary) 160 no: limit 
Card Punch (decimal) 80 no limit 
Magnetic Tape, Disk, 120 nG lama t 


Drum 


These device characteristics may be altered where applicable (e.g., number of 
characters per line for magnetic tape may be reduced) by using the procedure 
SYSPARAM 


pee Neer 


The Series 600/6000 ALGOL system uses a symbolic destination code which 
indicates the medium to which the information is intended to go (final 
destination) or from which it is to come. Destination codes are required because 
information is often stored temporarily on an intermediate device such as 
magnetic tape or disk. The destination code indica”es the format of the data on 
the external device. For example, a common case is when information which will 
eventually be printed is temporarily stored on tape. In this case the 
destination code indicates that the data is to be formatted as if it were going 
to the printer, in spite of the fact that it is going to magnetic tape. Another 
case is when a card image is read from disk. In this case the destination code 
indicates that the data is to be read in the same format as when reading 
directly from the card reader. 


The destination code defines the type of logical device to be associated with a 
file, independent of the physical device. In this way the system limits (that 
is, P and P') for a file are defined. When the destination code is absent, the 
logical device will be the same as the physical device. 


1e destination code is specified on a $ FFILE control card by the _ option 
DSTCOD/ (XXX), where XXX may be any of the following: 


Mnemonic Definition 
MTAPE magnetic tape 
DISC disk 
DRUM drum 
BCRDR card reader, binary mode 
DCRDR card reader, decimal mode 
BCPNCH card punch, binary mode 
DCPNCH card punch, decimal mode 
PRNTR printer 
PTMODS 5/6 channel paper tape 
PTMODD 7/8 channel paper tape 


The layout procedures are used to describe nonstandard operations which are 
to take place during input and output. The procedures need not be called, in 
which case certain standard operations (described with each procedure) will be 
in effect. The technique for using the layout procedures is as follows: 


The programmer declares a setup procedure containing any or all of the 
eight layout procedures (FORMAT, HLIM, VLIM, HEND, VEND, NO DATA, TABULATION, 
BAD DATA). At some point in the program there is a call to an I/O transmission 
procedure which has as one of its parameters the procedure identifier of this 
setup procedure. At the time the I/O procedure is called it causes the _ setup 
procedure to be executed, thus establishing the nonstandard operations. Each 
time a new I/O transmission is called, the standard layout operations will be 
resumed until changed by a new setup procedure. 


BAD DATA 


Gan ERIE 


To indicate the procedure which is to be called when a request ‘1s made for 
an item to be transmitted, and the item is incompatible with the format 
character. 


Form 


SR RARRRESRORRRRERCRR ORE 


BAD DATA (p) 


p: procedure identifier 


Rules 
iy This procedure applies only to input. 
a4 If the referenced field is not compatible, control will be transferred 
to procedure p. 
ox If BAD DATA is not used and the condition described in Rule 2 arises, 


control will be transferred to the end of the program as though a 
dummy label had been placed just before the final ‘END’. 


see Bowe 


i BAD DATA (CHECK) 


The procedure CHECK is used when incorrect data appears on the input 
device. 


os "BEGIN' *PROCEDURE' REDO; OUTLIST (6,LAY,LIST); 
eee BAD DATA (REDO);... ‘END’ 


When an incompatibility occurs, control goes to procedure REDO which 
outputs an error message. 


FORMAT 
To describe the form in which data appears on the input device or 1s _ to 


appear on the output device. 


Form 


FORMAT (string) 


string: a string with a special form 


co The format string is composed of a series of items separated by 
commas. 

va The string is interpreted from left to right in conjunction with a 
list of data items which are to be transmitted. 

38 These data items usually appear in a separate procedure called a list 
procedure. 

4. An item in the format string may describe a number, a string, or a 
Boolean quantity, or it may ee a cause a title to be written or page 
alignment to take place. 

3% All the format items listed above constitute a format string. 

Gis Any format item or any group of format items can be repeated any 


number of times by enclosing in parentheses those items to be repeated 
and preceding the parentheses by an integer n indicating the number of 
repetitions desired; i.e., 3(22.D) causes 3 decimal numbers’ to be 
transmitted. If no integer precedes the parentheses an infinite number 
of repetitions is indicated. 


d's Integers. This format item consists of a series of Z's, a series of 
D's, or a series of Z's followed by D's, each corresponding to a digit 
position of the number, and an optional sign. 


The letter D is used to indicate a digit which is always to be 
printed. (For example, 385 when written with format DDDD will appear 
externally as 0385.) 


The letter Z is used to indicate that the corresponding digit is to be 
suppressed if it is a leading zero. In this case, a zero digit will 
be replaced by a blank space when all the digits to its left are 
zeros. (For example, 21 when written with format 222 will appear 
externally as }21.) 


A series of Z's or D's may be written in a shorthand notation as 
follows: nZ or nD (where n is an integer) is equivalent to 222Z...2 or 
DDD...D (n times). (For example, 3Z and 222 are equivalent. 4D and 
DDDD are equivalent.) 


An optional sign may precede or follow the Z's and D's of a number 
format. If no sign appears, the number is assumed to be _ positive. 
Note: If a negative number is output with no sign position, the first 
digit position will print as }#,A,B,...,I representing the digits 
0,1,2,-..,9 respectively. If a plus sign appears, the correct sign of 
the number appears on the external medium. If a minus sign appears, 
positive numbers will be unsigned and negative numbers will have a 
minus Sign on the external medium. 


If a preceding sign is to appear externally with a number which has 
had leading zeros suppressed, the sign will be placed immediately to 
the left of the first non-zero digit. 


The total number of positions which an integer occupies on _ the 
external medium is the sum of the Z's and D's (plus one if the 
optional sign appears). If the field width is insufficient to hold the 
complete number, the complete number will be transmitted; but the rest 
of the line may be moved to the right. 


Examples of integer formats: 


If +XXDDD is used with 2176, it appears as }$+2176. 
If -ZZZDD is used with 3, it appears as }}03. 

If -DDDD is used with -45, it appears as -0045. 

If 222 is used with 0, it appears as }2-. 

If ZZD is used with 0, it appears as }0. 

If 2Z4D+ is used with 390, it appears as }40390+. 


Decimal Numbers. This format item consists of 2's and/or D'‘'s-~ each 
corresponding to a digit position, a period (.) or the letter V_ to 
indicate the position of the decimal point, and an optional sign. 


The letter Z has the same function it did for integers and it may 
appear only to the left of the decimal point. 


The letter D may appear on both sides of the point and has the same 
function as for integers. 


If a . is used to indicate the decimal point position, it will appear 
on the external medium in that position. If the letter V is used it 
merely indicates where the decimal point should be, but no space is 
used on the external medium. 


The sign part functions as it did for integers. 


The total number of positions which a decimal number occupies on the 
external medium is the sum of the Z's and D's plus one for the sign, 
plus one if the point is indicated by a . in the format. If the field 
width is insufficient to hold the complete number, the complete number 
will be transmitted; but the rest of the line may be moved to the 
right. 


Examples of decimal numbers: 


If ZZDD.DD is used with 146.776, it appears as 146.78. 

If -3D.D is used with 1.2, it appears as }001.2. 

If +3Z2.3D is used with .0042, it appears as bpe+.004. 

If ~ZZDVD is used with -142.78, it appears as -1428. 

If ZZ4D.DD- is used with -3394.7, it appears as }#3394.70-. 
If ZZD is used with 29.756, it appears as }30. 

If .3D- is used with -.0254, it appears as ,025-. 


Decimal Numbers with Exponent. This format item is the same as that 
for a decimal number with the addition of an exponent part to indicate 
the power of ten to which the number must be raised to give the true 
decimal number. 


The exponent part consists of an apostrophe to separate it from the 
decimal number followed by an optional sign, a series of Z's, and/or a 
series of D's. | 


The letter E will appear on the external medium in the proper position 
to separate the decimal number and its exponent. 


The rules for the exponent part are the same as those for integers. 


A number using this format will appear externally with its leading 
digit not zero. The exponent is adjusted accordingly. If the number is 
zero the exponent is also set to zero. 


If a nonzero number has a zero exponent which is specified by Z's the 
apostrophe and the exponent sign are also suppressed. 


The total number of positions needed on the external medium is the sum 
of all the Z's and D's plus one for the sign, plus one for _ the 
exponent sign, plus one for the apostrophe plus one for the decimal 
point (if the decimal point is specified). 


Examples of decimal numbers with exponents: 


If 3D.DD'+DD is used with 3075.2, it appears as 307.52'+01. 
If D.DD'-Z% is used with 7.1, it appears as 7.102%}. 

If ZZD'+ZD is used with .021758, it appears as 218'}-4. 

If DD'ZZ is used with 35.649, it appears as 362. 

If .3D'+2D is used with 917.2, it appears as :917'+03. 

If .DD'-Z2% is used with .000312, it appears as :31'PP-3. 


as Octal Numbers. The form of this item is nO or OO...O (n times) where n 
1s an integer which specifies the number of digits in the octal field. 


The octal format item may only be used for output. 


For output of real and extended real numbers, if n < 12, the leftmost 
n digits will be transmitted; if n > 12, twelve digits will be 
tranmitted, followed by n - 12 blanks. 


For output of integer and Boolean values, if n < 12, the rightmost n 
digits will be transmitted. If n > 12, twelve digits will be 
transmitted, followed by n - 12 blanks. 


Examples of octal numbers: 


If 50 1s used with 447521767511 on output, it appears as 44752. 
If 140 is used with 712342165134 on output, it appears as 
7123421651342. 


The integer or decimal number formats described above may be followed hy 
the letter T to indicate that the output should be truncated instead of rounded. 
Rounding occurs when truncation is not specified. 


Examples of truncation: 


If -2Z3D.2DT is used with -12.719, it appears as #¥-012.71. 
If 3ZDT+ is used with 145.6, it appears as }#145+. 
If -Z.DT'+ZZ2 is used with .-12537, it appears as #~1.2'}-2. 


Insertions in Number Formats 


All of the number formats may have either blanks or strings inserted 
anywhere within the format item. The insertion will appear on the external 
medium. 


A blank is denoted by the letter B. If more than one blank is desired it 
may be expressed by a series of B's or by the short hand notation nB (n is an 
integer specifying the number of blanks). 3B is equivalent to BBB. 


| A string which is to be inserted must be enclosed in string quotes (i.e. 
"string\). If the string is to be repeated it may appear as n"string\ where n is 
an integer specifying the number of times the string is to appear. The 
information in the string (not including the outermost quotes) is inserted in 
the corresponding place in the number. 
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Examples of insertions: 


If D2B3D is used with 3972, it appears as 3972. 

If "ANS=\4D is used with 271, it appears as ANS=0271. 

If "INTEGERBPART\-4ZVB"FRACTION\B2D is used with -195.7634, it appears as 
INTEGERBPARTB-195KFRACTIONS76. 

If 2ZB2D.DBT'+DD is used with 44865.5, it appears as 44486.5%'+01. 

If "OCTALB\50 is used with 112233445566, it appears as OCTALH11223. 


Numbers for Input 


Numbers which are input using the above format codes should, in general, 
appear the same as those which are output. 


However, there are fewer restrictions on the form of input numbers. 


dive Leading zeros may appear even if Z's are used in the format code. 
Leading blanks may appear even if D's are used. 


ar If insertion strings or blanks are used in the format code the 
corresponding number of characters on the input device are skipped. 


a If a sign is specified at the left in the format code it may appear in 
any Z or D positions on the input device as long as it is to the left 
of the first digit. If the sign is specified at the right, it must 
appear exactly where it is indicated. 


4, If a period is required, it must appear exactly where it is indicated. 


String Format 


This format item is used to output string quantities. It may not be used 
for input. Alpha format must be used instead. 


The form of this item is nS or SS...S(n times), where n is an integer which 
indicates the number of symbols in the string. 


doe If the actuai string is longer than the number of S's indicated, only 
the leftmost symbols are transmitted. 


23 If the string is shorter, blank symbols are added to the right of the 
string. 


Ss Examples of string format: 


If S is used with "A\, it appears as A. 

If 6S is used with "TOTALS\, it appears as TOTALS. 
If SSS is used with "ABC\, it appears as ABC. 

If 4S is used with "PROGRAM\, it appears as PROG, 
If 5S is used with "CAT\, it appears as CAT. 


Insertions in String Format 


| Blanks or strings may be inserted in the S format. The rules are the same 
as described for number formats. 


Examples: 


If B3SBB2S is used with "12345\, it appears as 123245. 
If 25"= 3SB is used with "TIANS\, it appears as T1=ANS}. 


Alpha Format 


This format item is used to transmit ALGOL basic. symbols. (See 
"Introduction", Section I for a list of basic symbols.) 


ig The form of this item is the letter A. 


Ls The appearance of the letter A as a format item causes transmission of 


a Single symbol from or to the data item specified in the list 
procedure. 


33 The symbol will be stored as an integer. 


It may be desired to work with symbols transmitted by the A format. 
Therefore, a function is provided which makes any ALGOL symbol type ‘'INTEGER' 
and causes the symbol to have the same value as if it had been read in using 
Alpha format. 


The function is called EQUIV. Its argument must be an ALGOL basic symbol 
enclosed in string quotes; i.e., EQUIV("'BEGIN'\). 


Example: 


If A format is used to read an "*" into variable ALG the statement 'IF' ALG 
"EQ' EQUIV ("* ) "THEN' 'GO TO' GOOD will check that "*" was in fact the 
symbol which was read in. 


Boolean Format 


This format item is used to transmit Boolean quantities. The item may 
consist of the letter P or the letter F. If P is used and the quantity is true, 
the number 1 is transmitted; if false, 0 is transmitted. 


On input if F is used, the next seven characters are examined. If they are 
"TRUE', then the value of true is transmitted; if they are 'FALSE', the value of 
false is transmitted. On output if F is used and the value is true, then the 
seven characters 'TRUE'S are transmitted; if the value is false, then 'FALSE' is 
transmitted. 


Insertions in Boolean Format 


Blanks or strings may be inserted in the Boolean format. The rules are the 
same as described for number formats and for strings. 


ee) 
! 
ie) 
to 
oh 
— 
_ 


Examples: 


If BBPB is used with a Boolean variable whose value is 'TRUE', it appears 


as S~1lB. 


If "THEBRELATIONBIS\BF is used with a Boolean variable whose value is 
'FALSE', it appears as THEBRELATIONMIS'FALSE'. 


Standard Format 


A number may be transmitted for input or output without specifying in a 
format item the exact form the number is to take. The number appears on the I/O 
device in "standard format." 


If the letter N appears as a format item, it specifies that a number with 
standard format is to be transmitted. 


Standard format for input may be defined as follows: 


eg Any number of digits in any of the forms which are acceptable to 
integer or decimal number formats may be input. 


Zs The number must be terminated by an illegal character; i.e., one not 
normally permitted in a number, or by k blanks where k is ae system 
parameter initially set at one. k may be changed by calling the system 
procedure SYSPARAM. 


Note: The input medium will be positioned to pick up the illegal character 
on the next read. Therefore the programmer must space over the illegal 
character (by uSing RDCHAR or SYSPARAM) if the illegal character is not to 
be used. 


If standard format is invoked, and the first line referenced contains any 
legal character for a number (i.e., digit, sign, decimal point or apostrophe) 
the right hand margin will terminate the number. If, however, the first line 
contains only blank characters, the subsequent lines will be searched until a 
legal number character is found. At this point the right hand margin is not 
Significant, and only an illegal character or k blianks will terminate the 
number. 


If standard format is used for output, the type of the variable determines 
the format on the external device. 


Lo For extended real variables, the value will appear as though the 
decimal number format B-.16DE+DD had been used. 


22 For real variables, the value will appear as though B=.8DE+DD had been 
used. 

oar For integer variables, the value will appear as though E-82D had been 
used. 

4. For Boolean variables, the value will appear as though BF had _ been 
used. 


Standard format will be assumed if the end of a format string is reached 
while there are data items in the list procedure still to be transmitted. In 
this case all the remaining quantities will be transmitted with standard format. 
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If a list of variables is to be terminated but either 
1. no reference 1s made to a FORMAT procedure, or 
oe the format call has the form FORMAT ("\) 


the items will be transmitted according to standard format. 


The form of this item is nH, where n indicates the number of characters to 
be transmitted. On input, up to six characters of code will be read. The 
characters will be inserted in a word, left justified, with trailing blanks. 


On output, up to six characters of code will be inserted in the output 
record. If nis greater than six, then only the first six characters will be 
used, but the medium will be spaced n characters. 


These are single characters which cause specific page operations to occur. 
The marks and operations are: 


f go to next line 
t go to new page 
J go to next tabulation position. 


Alignment marks may appear at the left or the right of any format item. If 
they appear at the left of the item, the actions take place before the format 
operation. If they appear at the right, they take place afterwards; i.e., /3S 
causes a skip to a new line before the string is transmitted and a skip to a new 
page after. 


Alignment marks may appear as separate format items simply by enclosing 
them in commas. 


Any number of alignment marks may appear in succession, and this causes the 
specified action to be repeated as many times as it is indicated; i.e., 
causes a page to be terminated and two pages to be skipped. Also any mark may be 
preceded by an integer n, where n indicates the number of times the action is to 
be done; i.e., 4J causes a skip to the fourth tab position and is equivalent to 
JJJJ. 


This format item is used when it is desired to cause page alignment and/or 
the output of insertion strings without transmitting any ALGOL quantities. This 
item consists entirely of insertions and alignment marks and refers to no data 
items. 


On input, this item causes characters to be skipped corresponding to the 
insertion strings and causes the desired alignment operations to be performed. 
On output, the insertion strings are transmitted and the alignment operations 
are performed. 
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Example of title format: 


t"SUMMARY\// indicate a new page, an insertion, a line to be terminated and 
a line to be skipped. 


Examples 


Te FORMAT ("4D.2D,2Z,/P,"ISBTHEBANS\ t, A\) 


This format string transmits a decimal number and an integer on one 
line; on the next fine is a Boolean quantity specified by a 0 or a 1 
followed by an insertion. Then a skip is made to a new page and an 
ALGOL symbol is transmitted. 


2, FORMAT ("7S,2(5Z.D'+ZZ,F) ,20\) 
A seven symbol string is transmitted followed by a decimal number, a 
Boolean quantity, a decimal number, a Boolean quantity. Then two 
tabulations occur. 


3. FORMAT ("(ZZ.BDT-,BBB+ZZD) \ } 


A decimal number and an integer are transmitted an indeterminate 
number of times; i.e., until the list of data items is exhausted. 


her seem 


To describe the form in which data appears on the input device or 1s _ to 
appear on the output device; to permit certain elements of the format string to 
be variable and to have their values calculated at the time the FORMAT procedure 
is called. 


Form 


FORMAT n(string, Xp,X27-¢++,/Xn) 
ns: integer 
string: string with a special form 


X]sXQpeee,Xni Expression 


Rules 

de n may be 0,1,2,...,9. This value indicates the number of x's which 
appear following the format string. (Note: The form FORMAT (string) as 
discussed previously is simply a special case of this format call in 
which n=0.) 

te The form of the string 1s the same as that discussed for the procedure 
call FORMAT (string), with certain additional features. 

Jus The string may contain the letter xX in various format items. The 


values of the x 's which follow the format string will replace each xX 
when the FORMAT procedure is called. 
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4, The letter X may appear in the format string as follows: 
Ae In a Number Format: 


‘Any Z or D may be preceded by the letter X to indicate a variable 
number of repetitions of the Z or D. 


Examples: 
XZXD = variable integer size 
ZZ.XD - variable number of decimal places 
:DDD'XD - variable exponent size 
b. In an Insertion: 
The letter B may be preceded by an xX to indicate a variable 
number of blank spaces on output or a variable number of ignored 
positions on input. 
Example: 
2Z2XB3D.D 


Cs In a String Format: 


The letter S may be preceded by the letter xX to indicate a 
variable number of symbols in the string. 


Examples: 


aS 
BXSB4S 


d. With an Alignment Mark: 


t,/ ox J may be preceded by the letter X to indicate a variable 
number of times the specified alignment action is to be taken. 


Examples: 
XJDD.DD - variable number of tabulations 
3S2BX/ =- variable number of lines to be 
skipped 
ore The X's may be used at most 9 times in a single format string. The 
integer n in the format call indicates the number of X's which appear 
in the string. . 
= The X1,X2,-+.+,Xpn in the format call represent the integral values to 


be assigned to the X's in the string. X1/X27e0e/Xmn Must be positive. 
x1 1s assigned to the first X which appears; x2 to the second, etc. 


Example 


FORMAT 3 ("ZZXD.D,XBXS\,2,A-5,B) 


The decimal number will be transmitted as though it had been written as 
Z22D.D. A-5 blanks will precede the string which will contain B symbols. 


CO 
t 
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To specify the procedures which are to be called when the end of a line is 
reached during input or output; to permit special action to be taken depending 
on what situation causes the end-of-line condition to occur. 


Form 


HEND (pl,p2,p3) 


pl,p2,p3: procedure identifiers 


Rules 


LG pl is the name of the procedure to be called when a "/" appears in the 
format call. This indicates that a new line is to begin and is 
considered the normal case. 


Li p2 is the name of the procedure to be called when a group of 
characters is to be transmitted or a tabulation is specified which 
would pass the right margin of the current line as specified by HLIM. 


3 p3 is the name of the procedure to be called when a group of 
characters is to be transmitted or a tabulation is specified which 
would pass the physical end of the line due to the characteristics of 
the I/O device being used, but would not pass the right margin as set 
by HLIM. Note: This physical end is specified by standard limits set 
within the system or a control card to the system, and may be altered 
by procedure SYSPARAM. 


4. If it is desired to take no special action when the end of a line is 
reached this procedure call may be omitted. 


Dua If action is desired for some but not all of the conditions, dummy 
procedure names may be used for those requiring no action. 


a HEND (NORM, OVER,END) 
A "/" in the format call causes control to go to Procedure NORM; if 
the right margin is reached control goes to OVER; if the physical 
end-of-line is reached control goes to END. 


>. 'BEGIN'...'PROCEDURE' DUMMY;;... 
...HEND (DUMMY,FIN,NEXT);...'END' 


Since Procedure DUMMY contains no statements, no special action wiil 
be taken when a "/" appears in the format call. 


HLIM 


aeRO Sf 


To specify the left and right margins of the input or output lines. 


Form 


QUIaEERAANARUNTT 


HLIM (left, right) 


left, right: arithmetic expressions 


Le The first parameter specifies the left margin. 
a The second parameter specifies the right margin. 
or There 2S -a. restriction ‘that: 1 .< deft.< right. 


4, If this procedure call is not given, the left margin is set to one and 
the right margin is set to infinity. | 


i HLIM (5,50) 
Left margin is 5, right margin is 50. 
2. HLIM (J=-4,K) 


Left margin is value of J-4, right margin is value of K. 


To indicate the procedure which is to be called when a request is made for 
data on an input device but no more data remains. 


NO DATA (p) 


o: procedure identifier 


Rules 
1 This procedure call applies only to input. 
2% If input data is requested by a data transmission procedure when no 
data remains on the input device, control will be transferred to 
procedure p. 
oe If NO DATA is not used and the condition described in Rule 2 arises, 


control will be transferred to the end of the program as though a 
dummy label had been placed just before the final ‘END’. | 


A NO DATA (EOF) 
The procedure EOF is used when no data exists on the input device. 


va *BEGIN' 
*PROCEDURE' LAST; 'GOTO' FIND; 
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NO DATA (LAST);... 
"END! 


When no data is found on the input device, control goes to procedure 
LAST which sends control to the statement labelled FIND. 


TABULATION 


To set the width of the tabulation field of the I/O device; to permit the 


skipping of a fixed number of positions whenever the alignment mark J appears in 
a format call. 


TABULATION (a) 


a: arithmetic expression 


Rules 
ds "a" specifies the number of characters of the foreign medium which 
constitute the tabulation field. 
2 If the left margin is at position X, the tab positions for a line are: 
X, X+ta, X+2a, X+3a, ... , Xtka 
The last tab position occurs before or at the same point as the right 
margin as specified by HLIM, or at the physical end of the line, 
whichever is smaller. 
a When a "J" appears in a format call, the I/O device is spaced to the 
next tab position. 
4, If this procedure call is not given the tabulation Spacing is one. 
Examples 


Es TABULATION (15) 


A new tab position occurs every 15 spaces. 
2% TABULATION (At2-B*C) 


The value of A*-BC determines the tab spacing. 
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VEND 


To specify the procedures which are to be called when the.end of a page is 
reached during input or output; to permit special action to be taken depending 
on what situation causes the end-of-page condition to occur. 


Form 


VEND (pl,p2,p3) 


pl,p2,p3: procedure identifiers 


Rules 


de 


a 


To set the vertical layout of a page; to specify how many lines on a page 
are to be used. 


pl is the name of the procedure to be called when a "t" appears in the 
format call. This indicates that the subsequent information is to 
appear on a new page, and is considered the normal case. 


p2 is the name of the procedure to be called when a group of 
characters is to be transmitted which would appear on the line after 
the one specified by VLIM as the bottom margin. 


p3 is the name of the procedure to be called when a group of 
characters is to be transmitted which would pass the physical end of 
the page due to the characteristics of the I/O device being used, but 
would not pass the bottom margin set by VLIM. Note: This physical end 
is specified by standard limits set within the system or a control 
card to the system, and may be altered by procedure SYSPARAM. 

If it is desired to take no special action when the end of a page is 


reached this procedure call may be omitted. 


If action is desired for some but not all of the conditions, dummy 
procedure names may be used for those requiring no action. 


VEND (NEW,PAGE 1,PAGE 2) 


Control goes to procedure NEW when a "i" appears in the format call; 
to PAGE 1 when the bottom margin is reached and to PAGE 2 when the 
physical end of the page is reached. 


"BEGIN'...*PROCEDURE' EMPTY;;... 
-eeVEND (OK,FIX,EMPTY);...'END' 


No action is taken if an attempt is made to write beyond the end of 
the page. 


Form 


Semesters 


VLIM (top, bottom) 


top, 


Rules 


Zs 


bottom: arithmetic expressions 


The top line of the page has a value of 1, the second, 2, etc. 


The first parameter indicates the first line to be _ used 
transmission. 


The second parameter indicates the last line to be used. 
There is a restriction that 1 < top < bottom. 


If this procedure call is not given, the first line is set to one 
the last line is set to infinity. 


VLIM (10,50) 
Data transmission starts on line 10 and ends on line 50. 
VLIM (1, TOTAL) 


Data transmission starts on the first line of a page, and ends on 
line specified by the value of TOTAL. 


"PROCEDURE' SET! 
‘BEGIN! 
FORMAT ("3D.2D\); 
'TF' A 'RO' Bt2 'THEN' 
'BEGIN' 
FORMAT ("222\); 
TABULATION (5) 
"END': 
VLIM ('IF' A 'EQ' Bt2 'THEN' 5 
"ELSE' 10,50) 
"END! 


If A=B2, the second format call will override the first, a TAB 
will be set and the vertical margins will be (5,50). If A+B , 


fOr 


and 


the 


or. 5 


the 


first format will be in effect, the TAB will be 1 and the vertical 


margins will be (10,50). 
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2. 'PROCEDURE' LAYOUT; 
‘BEGIN! 
FORMAT ("¢,100(ZZD.D,BBD.D'DD), 
7\i3 
HLIM(5,60); 
HEND (GOOD , OVER, OVER) 
'END!; 
'PROCEDURE' GOOD; HLIM(5,60); 
"PROCEDURE' OVER; HLIM(15,60) 


Whenever line overflow occurs procedure OVER will change the 
horizontal margins. When the "/" in the format call is reached, 
procedure GOOD will restore the original margins. 


DAs ei 


These procedures handle the actual transmission of data for input = and 
outrut. 


In calling these procedures it is necessary to specify the I/O device which 
is to be used for the transmission. File control cards are required to indicate 
the devices to be used. 


Files used by ALGOL are restricted to the numeric file codes Ol to 40 
(decimal). 05 is the standard input file and 06 the standard output file. These 
two files do not require file control cards in order to be used. Unless 
redefined, file 05 indicates file I*; 06 indicates file P*, Error messages will 
thus be written on 06. 


The point in a program at which the actual I/O procedure is called is when 
the transmission of data occurs. Layout procedures, if any, and a list 
procedure, if any, will be called by the internal I/O procedures. 


INLIST 


To indicate that data is to be transmitted for input; to specify the input 
device, the setup procedure and the list procedure. 


Form 


ay: arithmetic expression 


Aay,a3: procedure identifiers 


Rules 
ds a, is the file number from the file control card which indicates the 
specific input device to be used. 
24 a2 is the name of the setup procedure containing the layout procedure 


calls. 
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3 a3 is the name of the list procedure which contains the data items to 
be transmitted. 


4, When INLIST is executed, it first calls the layout procedures, then 
transfers back and forth to the list procedure while the actual input 
is taking place. See Appendix C for a detailed explanation of INLIST. 


1.  INLIST (05, ABC, INPT) 


This statement causes input to take place on I/O device 5 according to 
the layout procedures in procedure ABC and according to the Jlist 
procedure INPT. 


2 "BEGIN' 'PROCEDURE' START; 

'BEGIN' 
FORMAT ("1,A,D.D'DD/,ZDD,P\)?; 
VLIM(2;50) 

LEND? ® ge 

"PROCEDURE' LIST (OK); 

'BEGIN' | 

OK (ALPHA); OK(BOY); OK(COUNT); 

OK (BOOL) 

END # oes | 
INLIST (7,START,LIST);... 
"END! 


This program transmits a symbol into ALPHA, a real number into BOY, an 
integer into COUNT and a 0 or 1 into BOOL. 


INPUT n 
To indicate that data is to be transmitted for input; to provide for data 


input without using layout procedures or a list procedure. 


Form 


INPUT n (a,string,€,,@9,-++,€n) 
n: integer 
a: arithmetic expression 
String: format string 


@1,@9,-e+,EGn: variables or subscripted variables 


Rules 


Ls ais the file number from the file control card which indicates the 
input device to be used. 


ax The format string is in the same form as the format call FORMAT 
(string), i.e., no X's are allowed in the string. 
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Le 8o75-0,@n are the actual data items to be transmitted according to 
the format string given. 


4, n may have the value 0,1,2,...,9 and indicates the number of data 
items. 

oie The equivalent of this procedure call in terms of INLIST is as 
follows: 


"BEGIN' "PROCEDURE! LAYOUT; FORMAT (string); 
*"PROCEDURE' LIST (ITEM); 
"BEGIN! ITEM coy) ITEM. (ea eee 
ITEM (ep) 
"END! : 
INLIST (a,LAYOUT, LIST) 
"END! 


6. When the only layout procedure required is FORMAT and when there are 
nine or fewer items to be transmitted, this simpler input call may be 
used instead of INLIST., 


ie QNPUT 6 05, "(on pt \; 
A{l], Al2], A[3], A[4], a(S], Ale] 


This transmits 6 values according to the repeated format ZD.D. 
2. INPUT 2 (07,"P,F\, B(l1], B[2]) 


This transmits 1 or 0 into By and 'TRUE' or 'FALSE' into Bo. 


teksten 


Gee 


To indicate that data is to be transmitted for output; to specify the 
output device, the setup procedure and the list procedure. 


Form 


OUTLIST (a, ,ag,a3) 
aj: arithmetic expression 


a2,a9: procedure identifiers 


Rules 
dig a, is the file number from the file control card which indicates the 
specific output device to be used. 
oe a2 is the name of the setup procedure containing the layout procedure 
calls. 
oF a3 1s the name of the list procedure which contains the data items to 


be transmitted. 


Examples 


OUTPUT n 


Form 


‘pestoatipamarmenstorentomere 


Rules 


4 


a 


When OUTLIST is executed, it first calls the layout procedures’ then 
transfers back and forth to the list procedure while the actual output 


is taking place. See Appendix C for a detailed explanation of 
OUTLIST. 


OUTLIST (10,PAGE,LIST) 


This statement causes output to take place on I/O device 10 according 


to the layout procedures in procedure PAGE and according to the list 
procedure LIST. 


"BEGIN' "PROCEDURE’” SET; 
FORMAT ("3D;,D,B22),2835/\)% 
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"PROCEDURE! OUT (A); 


"BEGIN' 
A(TOTAL) ;A(INTEGER) ;A("ANS\) 
OO Socks ae 
OUTLIST(6,SET,OUT);... 
"END! 


This program causes the values of the two variables TOTAL and INTEGER 
and the string ANS to be written out on device 6. 


To indicate that data is to be transmitted for output; to provide for data 
output without using layout procedures or a list procedure. 


OUTPUT n (a,string,e},€2,+++,€n) 


ns: integer 
a: arithmetic expression 
string: format string 


C1,E2,--+,@n: arithmetic expressions, Boolean 


expressions or string 


a is the file number from the file control card which indicates the 
output device to be used. 


The format string is in the same form as the format call FORMAT 
(string); i.e., no X's are allowed in the string. 


CQ1,E2,e6+,en are the actual data items to be transmitted according to 
the format string given. 


n may have the value 0,1,...,9 and indicates the number of data items. 
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or The equivalent of this procedure call in terms of oOUTLIST is as 
follows: 


"BEGIN' "PROCEDURE' LAYOUT; FORMAT (string); 
"PROCEDURE' LIST (ITEM); 
"BEGIN' ITEM (e},); ITEM (e2);...;3 


ITEM (ey) 
"END"; 
OUTLIST (a,LAYOUT, LIST) 
"END! 
6. When the only layout procedure required is FORMAT and when there are 


nine or fewer items to be transmitted, this simpler output call may be 
used instead of OUTLIST. 


ds OUTPUT. 3 (06,"342Z2D.DD)\;A;,8;C) 


This statement will cause 3 values of A, B and C to be transmitted to 
device 6 according to the format given. 


2: OUTPUT 5 (09,"2(D.D'ZZ), 3S, 
2BSS,1\, Xt2-3,Yt2-3,"TOT\, 
"A1l\, COUNT) 


This statement will cause 2 decimal numbers, 2 strings and an internal 
notation integer to be transmitted. 


WTREC 


LALLA 


To transfer data from an array in core memory to an external device using 
logical record handling. 


Form 


APTOS 


WTREC (FC,A) 
FC: arithmetic expression 


As array identifier 


Rules 


a FC is the logical file number. 


2 A is a one-dimensional array which contains the information to be 
transferred. 


4 The array A must be declared with a lower bound of zero. 


A, Before calling WTREC, the element A [0] must have been set to the 
number of words to be written. 


Oe The words to be written are stored in A [1] through A [aol]. The 
contents of A are not altered by WTREC. 
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The array A will usually be of type 'INTEGER', but in certain cases it 
may be 'REAL' or ‘EXTENDED REAL". 


Procedure WTREC controls the transfer via the File and Record Control 
routines. It also performs any packing of the data as required by the 
destination codes. The format of the data in memory is discussed for 
each destination code. (See Appendix D.) 


Printer - Each word of the array A corresponds to one character for 
the printer. Each character is stored in the internal character code. 
These codes are given in the table below. Numbers outside the range 
0-63 are treated modulo 64. 


A maximum of 136 characters may be written with each call to WTREC. 


Character codes 15 and 63 have special meaning. Code 15 is ignored 


completely by the printer--i.e., nothing is printed. (Blank characters 
have code 16). 


Character code 63 is used to indicate the end of the print line. After 
printing the actual line, the printer then examines the character 
following the 63. This character is interpreted as follows: 


0-15 the printer is spaced that (0-15) number 
of lines. 
16 the printer is spaced to the top of the 
next page. 
17-63 see PRT201 Printer reference manual, 
BOSS: 


WTREC ends all lines with the spacing combination 63 and 1, indicating 
spacing to the next line. However, if the user has given his own 
Spacing combination, his will be encountered first; and the one given 
by WTREC will be ignored. 


BO a a On 
0 1 2 3 4 5 6 7 8 9 
[ i @ : > ? Bo AB C 
D E F G H I & : ] ( 
< \ t J K L M N OP 
OC :. = >. 2 rm * Ff 
Ss Fr DU VY Ww x YY | «& ; 
% a " ; 
Line Internal Character Codes 
Card Punch, Decimal - This is the same as the description for the 


printer, with the exceptions that the maximum number of characters 
which may be written is 80 and that the character codes 15 and 63 have 
no special meaning. 


Card Punch, Binary - Each element of A corresponds to one column of 
the punched card. Within each word, bit position 35 goes to row 9, bit 
positicn 34 goes to row 8, etc. 


Paper Tape - Output is always in the binary mode. Each element of 
array A corresponds to one row on the tape. For further information 


see PTS200 Perforated Tape Subsystem reference manual, BP44. 


Magnetic Tape - Output occurs word for word. For these destination 
codes, the array A may be of type ‘'REAL' or ‘EXTENDED REAL'. Note 
that, for 'EXTENDED REAL', A [0] must contain twice the number of 
elements to be transferred. 
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WI'CHAR 


To insert one character in the current logical output record. 


Form 


WICHAR (FC,A) 


FC,A3 


Rules 


RDREC 


SS RCT 


arithmetic expression 


FC is the logical file number. 
The actual value of A is the character to be inserted. 


The format of the character in A is determined by the final 
destination code. The format is the same as discussed under Rule 7 of 
WTREC. Of course, with WTCHAR, A represents only one value. 


The end of the current logical record is indicated by calling WTREC 
with a negative value of A. When the final destination code refers to 
the printer and the value of A is negative, the absolute value of A is 
the number of lines to be spaced. 


Q 


To transfer data from an external ,device to an array in memory using 
logical record handling. 


Form 


GATTI 


RDREC (FC,A) 


FC: arithmetic expression 


A: 


Rules 


array identifier 


FC is the logical file number. 


A is a one-dimensional array which will contain the information to be 
read, 


The array must be declared with a lower bound of zero. 
RDREC will set A [0] to the number of words read on each call. 
A [0] will be set to -l1 if RDREC encounters an end-of-file condition. 


The information read will be stored in A [1] through AC [A a 
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The array A will usually be of type 'INTEGER', but in certain cases it 
may be 'REAL' or ‘EXTENDED REAL’. 


Procedure RDREC performs any packing of the data as required by the 
destination code. The format of the data in memory is discussed for 
each destination code. (See Appendix D.) 


Card Reader - In reading from cards, column 1 goes into A Ll]; -colamn 
2 into A [2], etc. With BCD cards, the number value read ranges from 0 
through 63 according to the table listed under WTREC. For binary 
cards the number ranges from 0 through 4095. 


Paper Tape - Input is always in the binary mode. Each element of array 
A corresponds to one row on the tape. For further information see 
PTS200 Perforated Tape Subsystem reference manual, BP44. 


Magnetic Tape - Input occurs word for word. For these destination 
codes, the array A may be of type '‘'REAL' or ‘EXTENDED REAL’. Note 
that, for 'EXTENDED REAL', A [0] must contain twice the number of 
elements to be transferred. 


Note also that, when reading, the type of the array A must be the same as 
that from which the information was written, as no type conversion is done by 
RDREC or WTREC. 


Rules 


read one character from the current input logical record. 


frvene 


TRANSMIT 


RDCHAR (FC) 


arithmetic expression 


FC is the logical file number. 


The value returned will be the character read. The format of the 
character is determined by the final destination code. The format is 
the same as discussed under Rule 8 of RDREC. 


When an end-of-file condition is encountered, RDCHAR returns a value 
of -l. 


To transfer data between core memory and an external device (magnetic tape, 
disk, or drum) using physical record handling. 


Form 


Ie 


Rules 


10s 


aks 


TRANSMIT (FC, INDEX, MODE, LIST) 


INDEX, MODE: arithmetic expressions 


LIST: procedure identifier 


FC is the logical file number. 


INDEX is the number of the first word within the file from which 
transferring is to begin. (INDEX > 0.) 


MODE indicates whether this is input or output and also indicates the 
type of the variables as they appear on the external device. 


LIST is a procedure which specifies the variables to be transmitted. 


File control block for files used with TRANSMIT must indicate physical 
record handling--i.e., no buffers are used. 


Files for disk and drum must be of type random. 
The parameter MODE indicates the type of the variables as they exist 


or are to exist on the external device. The possible values of MODE 
are given in the following table. 


Type Read Write 
"REAL ' 0 iE 
* INTEGER" Z 6: 
"EXTENDED REAL ' 4 5 


The mode is entirely independent of the type of the variables as they 
appear in memory, because the necessary conversion occurs in the list 
procedure. 


The beginning of the information to be referenced on the external 
device is indicated by the value of the parameter INDEX. This is 
Simply a sequential counter of the words as they are written on or 
read from the external device. The following two rules define the 
value of INDEX. 


Aa. For the first item (1.e., variable) to be referenced INDEX = 0. 


De INDEX is incremented by 1 for each single-word variable 
('INTEGER' and 'REAL"'") and by 2 for each double-word variable 
("EXTENDED REAL'). 


The function value returned by TRANSMIT is the next unused INDEX. This 
can be used in a loop of the following type: 


INDEX: = TRANSMIT (17, INDEX, 1, LIST) 


Physical record handling is used. This means that data is transmitted 
with each call to TRANSMIT. Therefore, buffers are not found for files 
to be used with TRANSMIT. Temporary buffer space is reserved in the 
stack with each call, and this space is released upon return. At the 
time that the first reference to a file is made, it is opened by 
calling .UOPEN. Upon termination of the program the file is closed by 
eAEXIT. 
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The methods for positioning and the record format are slightly different 
for magnetic tape than for disk or drum. 


Each call to TRANSMIT results in transmitting at least one physical record. 
Each record begins with a control word. Data follows the control word. The 
contents of the control word are: 


Bits 0-23  FNDEX for the next record 
Bits 24-35 MODE for this record 


ws 


the control word. For calls to TRANSMIT which indicate more than 320 words, the 
required number of 320-word records will be transmitted. 


The maximus length of any one physical record is 320 words, not counting 

Before reading or writing, TRANSMIT checks the INDEX against the previous 
value and then positions the tape accordingly. 

The following restrictions must be observed: 


ta Reading beyond the limits of the latest write operation is not 
possible. 


var r beyond the limits of the latest write operation is not 
. Writing occurs only with the next available INDEX--i.e., no 
allowed. 
4 Reading and rewriting always start with an INDEX which is the same as 
the INDEX from an earlier writer. 
4, For the initial writing of data on tape, the INDEX must be zero. 


Violation of any of the above rules causes TRANSMIT to print an error 
message and to terminate the execution. 


Drum and Disk 


The restrictions for tape handling are removed for disk and drum. The 
parameter INDEX is used to calculate a starting address within the links 
allocated for the disk or drum. Thereafter, transmission occurs from this point. 


There is no special control word at the beginning of each record. This 
means that the parameter MODE must have the same type representation when 
reading a record as it had when the record was written. For example, a file may 
not be written with the MODE as 'REAL' and then later read as ‘INTEGER’. 


The following input/output control procedure accesses system parameters and 
allow some control over the positioning of the I/O devices. 


oYSPARAM 


Form 


To gain access to certain system parameters so that they may be modified. 


SYSPARAM (a] ,a7,43) 


ajy,ag: arithmetic expression 
az: integer variable 
a The system parameters which may be changed or read out are: 
aig The character, line and page pointers (Dy p' and a) 
respectively. p and p' have an initial value of zero. E.g., when 
p=2, the third character is the next character to be accessed. 
De The "standard format" constant determining the number of spaces 
between items (k). 
‘om Tne physical end of line (P) and the physical end of page (P') 
which are characteristic of the I/O device. 
2s ay, is the file number from the file control card specifying the I/0 


device concerned. 


3 ag May Nave. ea Valve Of- 1,2 6.05711 % 


Ao 


if.the value of a2 is 1,3;,5,7,9 or 11, the value <of ‘the -system 
parameter in question is assigned to variable a3. 


lon If the value of ag is 2,4,6,8 or 10, the value of a3 becomes the 
new value of the system parameter. 

ome The action is as follows: 
if ag = 1, a3+p if a2 = 2, p+ a3 
if ag = 3, a3-p' 1f ag = 4, p'+a3 
if ag = 5, a3+P if ag = 6, P+aj 
if ag = 7, a3+P' if ag = 8, Deas 
if ag = 9, a3<k 1f ag = 10, k+a3 
if a2 = ll, a3z+p" 

4. p and p' represent actual positions on the I/O seraes which are to be 


changed when a5 = 2 and ag = 4. 


A o 


If a5 = 2, Pp aS tested to see if p<aq, If it: is; blanks -are 
inserted until p = a3. If psa3, a skip to the next line is 
performed, p is set equal to 0, and blanks are inserted until p = 


AZ» 
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jon If ag = 4, p' is tested to see if p'<a3- Tf ait is, lines are 
advanced until p' = aq. If p'>a3, a skip is made to a new page, 
p' is set equal to 0, and lines are advanced until p" = a3. 


ag = 6 and ag = 8 change the physical limits of the I/O device (P and 
P') where this is possible (i.e., magnetic tape block length may be 
changed and unit record devices may have physical limits reduced, but 
not extended beyond the standard limits). If the limits cannot be 
changed and these actions are specified, the statement acts like a 
dummy statement. 


ag may also have a vaiue of 21 or 22 


a. If the value-Of a5. is 21, the file denoted by a7 is defined as an 
input file. 


b. If the value of ag is 22, the file denoted by aj, is defined as an 
output file. 3 


‘on If the value of ag is 21 or 22, the value of az is not 
Significant. 


The condition which requires ag = 21 or 22 only arises when the 
intended first action on a particular file uses a primitive procedure 
or procedure SYSPARAM. If this is the case, the system does not know 
the nature of the file and thus a call to SYSPARAM with ag = 21 or 22 
would serve to define the file; e.g., if the first action with respect 
to file 6 is to read out the value of p by a call to SYSPARAM such as 


SYSPARAM(06, 1, CHAR) 


This call would have to be preceded by a call to SYSPARAM defining 06 
as an output file as follows: 


SYSPARAM(06, 22, 0) 


aa may also have a value of 23. If az is 23 then the file will he 
closed with the options indicated by a3. The value of a3 (which is 
treated modulo 4) indicates: 


Rewind but do not lock the file 

Do not rewind and do not lock the file 

Lock and release the file. 

Rewinding and/or locking is not appropriate for this device. 


Go bho i 


aj may also have a value of 24. If ag is 24 then a may have a value 
of 0 through 7. This function acts like the DSTCOD on the $ FFILE 
control card. The appropriate values in the file parameter list 
(maximum characters per line, number of characters per word, media 
code, ASCII/BCD flag, etc.) will be set according to the value of a3. 


ea ORIEL ACTER 


Value of a Action 


Binary (MTAPE, DISC, DRUM) 
Binary card (BCRDR, BCPNCH) 
BCD card (DCRDR, DCPNCH) 
BCD printer (PRNTR) 

ASCII printer 

Paper tape single (PTMODS) 
Paper tape double (PTMODD) 
Paper tape edit (PTMODE) 
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Hxamples 
comenmmmsenesnsreammess 


lent 


1.  SYSPARAM (8, 3, LINENO) 


On device 8 the value of the line pointer iS assigned to variable 
LINENOC. 


Pa SYSPARAM (5, 10, 3) 


For device 5 the value of k is changed to 3; i.e., 3 or more blanks 
must follow a number in standard format. 


ee hi ef vale chs chhcbeaneaoaeal 


The following primitive procedures are available for use by the programmer 
but are not intended to be general purpose routines. 


INSYMBOL 


To associate specific ALGOL symbols with specific integers; to read in a 
basic symbol from an external device as an integer. 


Form 


. SETS 


INSYMBOL (e, s, v) 


e: arithmetic expression 
(called by value) 


S: string 


vs integer variable 


Rules 

ie The basic symbols contained in the string "s" are given integer 
values. 

ie The symbols are assigned from left to right to the positive integers 
12 poy CEC 

Bs This procedure acts as follows: 
as It reads in the next symbol from the input device. 
Ds If it is a basic symbol which appears in the string "s", the 


variable v will be assigned the integer value associated with 
this symbol. 


ve 


oe If it is a basic symbol which does not appear in the string "s 
v will receive a value of 0. 


Siete Be 


a. If the input symbol is not an ALGOL basic symbol, v will receive 
a value of minus one. 


e. If there 1s no more data on the input device, v will receive a 
value of minus two. 


ts Lf ‘the Strang "6" 25° uli; odse@s,. INSYMBOL d(e,;"\,v), “v wild 
receive the standard system value for the basic symbol. (See 
Appendix E.) 


LENGTH 


To calculate the length of a given string. 


Form 


LENGTH (s) 


S: string 


di, The result of this procedure is an integer. 


23 It is equal to the number of basic symbols in the string "s" not 
including the outermost pair of string quotes. 


To permit the saving or "remembering" of labels and procedure identifiers. 


Form 


NAME (V1,V2,8,rP) 
V1/V2: integer variable 
az: statement label 


p: procedure identifier 


Rules 
Ls If vj has a value of 1, the integer associated with a is assigned to 
V2- 
2% If vy, has a value of 3, the integer associated with p is assigned to 
V2e 
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if vy Nasa value of 2, control will be transferred to the label whose 
value is the same as that of vg. (Note: v2 must have _ been assigned 
the value of a label by a previous NAME statement.) If v2 = O the 
program will be terminated. 


4, If vj has a value of 4, control will be transferred to the procedure 
whose identifier has the same value as v2. (Note: v2 must have been 
assigned the value of a procedure identifier by a previous NAME 
statement.) If vg = 0 the procedure will be a dummy procedure. | 

Ds The association of specific integers with labels and procedure 
identifiers holds only in the block in which the labels or identifiers 
are declared, i.e., the rules of scope for ALGOL block structure are 
obeyed. 

OUTSYMBOL 
To associate ALGOL basic symbols with specific integers; to write out a 


basic symbol on an external device from an internally stored integer. 


Form 


OUTSYMBOL (e), S, &2) 


e- 


“] 


,@9: arithmetic expression 


(called by value) 


string 


The basic symbols in the string "Ss" are given integer values. 


The positive integers 


1,2, 
left to right; leftmost = 


3, etc. are assigned to the symbols from 
1, next = 2, etc. 


This procedure acts as follows: 


as It evaluates e 7 and determines the integer which is closest to 
this value. 


Dy If the value has an equivalent in string "s", the basic symbol 
corresponding to this value will be written on the output device. 


Ce If the value has no equivalent in string "s" by being outside the 
bounds of the string, or if it is not a basic symbol, the #~ will 
be written on the output device. 


as If the string "s" is null, i.e., OUTSYMBOL (e;,"\,e2), the 
standard system values are used to determine the basic symbol 
which will be written on the output device. (See Appendix E.) 


To enable the scanning of a given string (actual or formal) in a machine 
independent manner. 


Form 


STRING ELEMENT (S1,V1,S2/V2) 


$1,892: string 


Viyvor. Variable 


Rules 


TYPE 


Variable v, determines which symbol of s is referenced, i.e., 1f vj = 
1 it is the leftmost symbol; if vy = 2, the next, etc. 


Once the symbol is chosen, its associated integer is assigned to 
variable v2. (Note: the associated integer is determined by encloding 
string S27 as was done with the string in the procedure INSYMBOL.) 


To determine the type of a number which is to be written out in = standard 


formats 


Form 


sctoaceptespeactatyeas 


bie Gat 
Vis 


VON 


Rules 


is rare, 


variable 


variable or string 


lf V5 2S <a String; Vy os set; equal to: 4. 


If v2 is a variable, vj is assigned a different value depending on the 
type of v2 as follows: 


ae if vo 1s “INTEGER Vy ts 
om Ef VOLS “REALS ip, Vie, 
Cx Ee 79. US. 7 BOOLEAN y Wye Ss. 


oo Le Vo 2S. EXTENDED REAL" 7. Vy ox 
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This procedure is written by the programmer to be used with the I/O 
procedures provided by ALGOL. It provides a list of the data items to be 
transmitted. The identifier for this procedure is not reserved by ALGOL; thus, 
any valid identifier may be chosen. 


List Procedure 
To list a sequence of quantities to be transmitted for input or output; 


this list is used in conjunction with the format items of a FORMAT call. 


Form 


"PROCEDURE' name (ident); s 
name: procedure identifier 


ident: identifier 


S: simple statement or block 
Rules 

i The formal parameter “ident" appears in the body of the list procedure 
as a procedure identifier. 

ns Each item to be transmitted for input or output appears in the 
procedure body as the parameter for procedure ident. 

Example: 
"PROCEDURE' A(X); '‘BEGIN' X(M); X(N)' X(P) ‘'END'! 
M, N and P are transmitted. 

33 When the list procedure is called by a data transmission procedure 
(INLIST or OUTLIST), an internal system procedure (INITEM or OUTITEM) 
will be the actual parameter corresponding to the formal parameter 
"ident," and thus will be substituted for "ident" in the list 
procedure body. 

4, Execution of the list procedure causes the internal system procedure 
(INITEM or OUTITEM) to be executed. INITEM or OUTITEM has as its 
parameter the item to be transmitted. 

on This parameter may be an arithmetic expression, Boolean expression or 
a string for output. However, the parameter may be only a variable or 
subscripted variable for input. 

- The item is called by name by the internal system procedure and its 
value is transmitted for input or output. 

rae The sequence of statements in the list procedure body determines the 
sequence in which the items are transmitted for input or output. 

B4 All ALGOL statements are permissible in a list procedure including a 


call to one or more of the layout procedures. 


S25 Bold 


Examples 


ee 


"PROCEDURE' LIST (NAME) ; 
"BEGIN' NAME(X); NAME (Y¥¢3*Z); 
NAME ("TOTAL\) 'END' 


The identifier NAME is replaced by a system procedure name 
list procedure is called. X,Yt3*Z and "TOTAL\ are parameters 
system procedure and their values will be transmitted. 


'PROCEDURE' MANY (ITEM); 
'FOR'’ I+] 'STEP' 1 'UNTIL' 
10 'DO' 'BEGIN' ITEM (A[I]); 
ITEM (B[I]) 'END' 


The items to be transmitted are Aj,B,,A2,B2,.--., Al10,Bl0.- 


when 
EO 


the 
this 
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APPENDIX A. 


RESERVED IDENTIFIERS 


The following list enumerates reserved identifiers. These identify 
functions and procedures which are available without explicit declarations. 
These functions and procedures are assumed to be declared in a block external to 
the program. However, a programmer may redeclare a reserved identifier, in 
which case the reserved meaning is superseded. 


The reserved identifiers are as follows: 


ABS INLIST OUTPUT 7 
ARCTAN INPUT 0 OUTPUT 8 
BAD DATA INPUT 1 OUTPUT 9 
CLOCK INPUT 2 OUTSYMBOL 
COS INPUT 3 PACK 
DATE INPUT 4 RDCHAR 
DUMP INPUT 5 RDREC 
ENTIER INPUT 6 SENSE 
INPUT 7 SIGN 
INPUT 8&8 SIN 
INPUT 9 SPACE 
INSYMBOL SORT 
0 LENGTH STRINGELEMENT 
1 LN SYSPARAM 
2 NAME TABULATION 
3 NO DATA TIME 
4 OUTLIST TRANSMIT 
5 OUTPUT 0 fbb og sh 
6 OUTPUT 1 UNPACK 
7 OUTPUT 2 VEND 
8 OUTPUT 3 VLIM 
9 OUTPUT 4 WTCHAR 
OUTPUT 5 WTREC 
OUTPUT 6 


APPENDIX B. 


MATHEMATICAL AND MISCELLANEOUS FUNCTIONS 


Form | Description © 

ABS (e) absolute value of the expression e 

ARCTAN (e) principal value of the arctangent of e 

COS (e) cosine of e 

ENTIER (e) the integral part of e 

EXP (e) | exponential function of e 

LN (e) natural logarithm of e 

SIGN (e) Sign of e (+1 if ed0, 0 if e = 0, -1 if e<0) 

SIN (e) Sine of e 

SORT (e) square root of e 

These functions are available without explicit declarations. They are 

assumed to be declared in a block external to the program. However, a programmer 
may redeclare a mathematical function identifier, in which case the standard 


meaning 15 superseded. 


These functions accept parameters of types ‘'REAL', ‘EXTENDED REAL' and 
"INTEGER'. They all yield values of type ‘EXTENDED REAL', except for ENTIER(e) 
and SIGN(e) which yield values of type 'INTEGER'. 


The parameters of these functions are treated as "VALUE" parameters. 


MISCELLANEOUS FUNCTIONS 


DATE is an integer procedure which returns the current date expressed as an 
integer. For example, August 1, 1968, would be returned as 80,168. 


SPACE 18S an integer procedure which returns the number of words of memory 
available in the stack. 


CLOCK is an extended-real procedure which returns the time of day expressed in 
hours past midnight, 


TIME is an extended-real procedure which returns the amount of processor time 
expended, expressed in seconds. 


SENSE (e) is a Boolean procedure which returns the setting of the program 
switch word for the bit indicated by the parameter e. The parameter is an 
arithmetic expression. It has a value from 1 to 6 corresponding to the 
options ON1 through ON6 on the S$ EXECUTE card. 
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ERRNO 


DUMP 


PACK 


EOEm 


(e) performs one of two functions: 


is If the value of the parameter e is positive, a message of the form 
<<< ERROR NUMBER XX >3> is printed, where XX is the value of the 
parameter. 


2% If the value is negative, it replaces the maximum error count (which 
is the maximum number of error messages which may be printed before 
the execution is aborted). The maximum error count is currently 
five. 


is a procedure which gives a trace of the procedural and nonprocedural 
stacks. The ON6 option on the $ EXECUTE control card must also be used. 
If the ON6 option has not been used, then the call is ignored. This 
allows the user to call DUMP in the source program, but to determine the 
need for the trace at execution time. 


To pack bits together into a word. 


PACK (S,I,L); 


Ge 
oe 


I: 


string 
identifier 


list procedure 


The routine packs bits coming from the list procedure into I according 
to the string S. 


I is the identifier of the resulting packed word. 


L is a procedure which lists the values which are to be packed 
together. 


The string consists of a set of integers separated by commas. 
i a ees Oa oe eG 


The rightmost nl bits of the first value received from the list 
procedure will be stored into the leftmost nl bits of the variable I. 


The rightmost n2 bits of the second value received from the list 
procedure will be stored into the next n2 bits (after nl) of the 
variable I. 


An integer in the string may have a trailing Z. This causes zeros to 


be placed in that field in the output variable. In addition, the list 
procedure is not invoked for that field. 


oe 
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Examples 


Ls "PROCEDURE! LIST(P); 'BEGIN' 
PGs (5) 3 (4) oP 3).4e (2) 4 Ge) s TENT 
"INTEGER! TI; 
PACK ("6,6,6,6,6,6\,1, LIST); 


This would result in: I-060504030201 
2s "INTEGER! 1, J,K;? 
"PROCEDURE' LIST(P); ‘BEGIN' 
P(I):P(J); '‘END' 
e=70:J7:=42; 
PACK("9,21\,K, LIST); 


This would result in: K+106000005200 (remembering that 70 decimal is 
106 octal, and 42 decimal is 52 octal). 


3. 'INTEGER' I,J,K; 
*"PROCEDURE' LIST(P): '‘'BEGIN' 
P(I);P(J)}7 “END; 
I3s=633J3:=3; 
PACK ("3Z,6,3\,K,LIST) ; 


This would result in: K=077300000000 (again remembering that 63 
decimal is 77 octal). 


eh hvac 


To unpack parts (bits) of a word into separate words. 


Form 


UNPACK(S,1I,L); 
S: string 
I: identifier 


list procedure 


ag The routine unpacks bits from I into variables given by the list 
procedure according to the string S. 

2% I is the identifier of the word to be unpacked. 

3% L is the procedure which lists the variables which are to receive the 
unpacked bits. 

4, The string consists of a set of integers separated by commas. 

a AE Oo 2 ee a 
5% The leftmost nl bits of the variable I are stored into the rightmost 


nl bits of the first variable given in the list procedure. 


6% Then the next n2 bits (after nl) of the variable I are stored into the 
rightmost n2 bits of the second variable given in the list procedure. 


"REAL! X:; 'INTEGER' I,J; 

"PROCEDURE' LIST(P):; 'BEGIN' 
P{i);P(d)+ ‘END’ # 
X:=1.5: 

UNPACK ("9,27\,X, LIST) ; 


This would result in: 


T=000000000002 
J=000600000000 
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APPENDIX C. 


DETAILED EXPLANATION OF INLIST AND OUTLIST 


Assume: 


Le INLIST has been called. 

Le Lines 1,2,...,p* of the current page have been read. 

3 Characters 1,2,...,p of the current line (line p" + 1) have been read. 
4. At the beginning of the program p = p' = 0. 

5 Symbols P and P' denote line size and page size respectively. 


6. There are eight hidden variables Hl, H2,...H8 which correspond to the 
eight layout procedures as follows: 


Hl - FORMAT 

H2 - HLIM 

H3 - VLIM 

H4 - HEND 

H5 - VEND 

H6 - TABULATION 
H7 ~- NO DATA 

H8 - BAD DATA 


ds The left margin of HLIM is L. 
The right margin of HLIM is R. 


The top margin of VLIM is L'. 
The bottom margin of VLIM is R'. 


STEP 1. (Initialization) 


The hidden variables are set to standard values: 
HL is set to the "standard" format. 

H2 is set so that L=1, R=, 

H3 is set so that L' = 1, R' =o. 


H4 is set so that the three parameters are all effectively equal to the 
dummy procedure defined as follows: 'PROCEDURE' DUMMY;;. 


H5 is set so that the three parameters are all effectively equal to _ the 
dummy procedure, DUMMY. 


H6 18 set so that TAB = l. 
hg is set to terminate the program in case the data ends. 


H8 is set to terminate the program if an unacceptable character is 
received fcr format translation. 


STEP 2. (Layout) 


The layout procedure is called; this may change some of the variables Hl, 
H2, H3, H4, H5, H6, H7, H8. Set T to 'FALSE'. (T is a Boolean variable used to 
control the sequencing of data with respect to title formats; T = 'TRUE' means a 
value has been requested of the procedure which has not yet been input.) 


STEP 3. (Communication with List Procedure) 

The next format item of the format string is examined. (Note: after the 
format string is exhausted, "standard" format is used from then on until the end 
of the procedure. In particular, if the format string is " , standard format is 
used throughout.) Now if the next format item is a title format, that is, 
requires no data item, we proceed directly to Step 4. If T = 'TRUE', proceed to 


Step 4. Otherwise, the list procedure is activated. This is done the first time 
by calling the list procedure, uSing as actual parameter a procedure named IN 
1 EM, 


This is done on all subsequent times by merely returning from the procedure 
IN ITEM which will cause the list procedure to be continued from the latest IN 
ITEM call. (Note: the identifier IN ITEM has scope local to IN LIST so a 
programmer may not call this procedure directly.) After the list procedure has 
been activated in this way, it will either terminate or will call the procedure 
IN ITEM. In the former case, the input process is completed; in the latter case, 
T is set to 'TRUE'. Then any asSignments to hidden variables that the list 
procedure may have invoked will cause adjustment to the variables Hl, H2, H3, 
H4, H5, H6, H7, H8, (which are local to IN ITEM). We then continue at Step 4. 


STEP 4. (Alignment Marks) 


If the next format item includes alignment marks at its left, remove them 
from the format and execute process A (a subroutine below) for each "/", process 
B for each "+", and process C for each "J". 


STEP 5. (Get within Margins) 


Execute process G to ensure proper page and line alignment. 


STEP 6. (FPormatting.tor Input) 


Take the next item from the format string. 
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NOTES 3 


In unusual cases, the list procedure or an overflow procedure may have 
called the descriptive procedure FORMAT thereby changing the format string. In 
such cases, the new format string is examined from the beginning; and it is 
conceivable that the format items examined in Steps 3, 4, and 6 might be three 
different formats. But at this point the current format item is effectively 
removed from the format string and copied elsewhere so that the format string 
itself, possibly changed by further calls of FORMAT, will not be interrogated 
until the next occurrence of Step 3. 


Alignment marks at the left of the format item are ignored. If the format 
item is not composed only of alignment marks and insertions, the value of T is 
examined. If T = 'FALSE', undefined action takes place (the programmer has 
substituted a nontitle format for a title format in an overflow procedure, and 
this is not allowed). Otherwise, T is set to 'FALSE'. If the format item is "A" 
or "N", set s = 1 and go to Step 7; otherwise, the number of characters, s, 
needed to input the format item for the present medium is determined, and it is 
assumed that the same number of character positions will be used in the input 
medium for this item. 


STEP 7. (Check for Overflow) 


If the present item uses "N" format, the character positions p + 1, p + 
2,656. are examined until either a proper termination of the number has been 
found, or position min (R,P) has been reached with no Sign; digit, decimal 
point, or "'" encountered. In the former case, set s to the number of character 
positions occupied by the number, including preceding and embédded blanks and 
the termination character, and then go to Step 9; in the latter case, go to Step 
8 with p = min (R,P). 


If the present item uses "A" format, the character position p + 1 is 
examined, if it contains "Y", set Pp = min (R,P) and go to Step 8, otherwise 
input characters starting from position p+ 1 until a basic symbol has been 
input. Set s to the number of characters denoting the basic symbol and go to 
Step 9. Finally, if neither "N" nor "A" format is used, go to Step 8 or Step 9 
according as p + s > min (R,P) or not. 


STEP 8. (Processing of Overflow) 


Perform process H (p + s). Then proceed as follows: 


"N" format: Input characters until either finding a number followed’ by a 
proper termination (go to Step 9) or until reaching position min (R,P). In the 
latter case, a partial number may have been examined; repeat Step 8 until a 
number properly terminated has been input. In the former case, set s to the 
number of positions occupied by that portion of the number lying to the right’ of 
p, including embedded blanks and the termination character, then go to Step 9. 


"A" format: Input characters as with "N" format until a basic symbol has 
been input. (This basic symbol necessarily takes. several character positions on 
the medium. ) | 


Other: If p+s< Rand pts < P, go to Step 9; otherwise input k = min 
(R,P) - p characters, set p = min (R,P), decrease s by k, and repeat this step. 


STEP 9. (Finish the Item) 


If neither "A" nor "N" format is being used, input s characters. Determine 
the value of the item that was input here, or Steps 7 and 8 in case of "A" or 
"N" format, using the rules of format. Assign this value to the actual parameter 
of IN ITEM unless a title format was specified. Increase p by s. 


Any alignment marks at the right of the format item now cause activation of 
process A for each "/", process B- for each "t", and process C for each "J". 
Return to Step 3. 


PROCESS A. ("/" Operation) 


Check page alignment with process F, then execute process D and call 
procedure pl of HEND. 


PROCESS B. ("t" Operation) 


If p > 0, execute process D and call procedure pl of HEND. Then execute 
process E and call procedure pl of VEND. 


PROCESS C. ("J" Operation) 


Check page and line alignment with process G. Then let k = ((p- L + 1)8% 
TAB + 1) x TAB + L- 1 (the next "tab" setting for p), where TAB is the "tab" 
spacing for this channel. If k > min (R,P), perform process H(k); otherwise skip 
over character positions until p = k. 


PROCESS D. (New Line) 


Skip the input medium to the next "line", set p = 0, and set p' = p' +1. 


PROCESS E. (New Page) 


Skip the input medium to the next "page", and set p = 0. 


PROCESS F. (Page Alignment) 


If p'’ + 1 < L', execute process D until p' = L' - l. 
If p' + 1 > R', execute process E, call procedure p2 of VEND and repeat process 
F. 
If p' + 1 > P', execute process D, call procedure p3 of VEND and repeat process 
a 
This process must terminate because 1 < L' < R' and 1 < L' < P'. If a programmer 
chooses a value of L' > P', L' is set equal to l. 
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PROCESS G. (Page and Line Alignment) 


Execute process F, Then, 
If p +1 <UL, skip over character positions until pt+il 
If p+il1> Ror p+i1 >P, perform process H (p + 1). 
This process must terminate because 1 <igRandl<L< P. If a _ programmer 
chooses a value of L >P, L is set equal to l. 
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PROCESS H(k). (Line Overflow) 


Perform process D. If k > R, call procedure p2 of HEND; otherwise call p3. 
Then perform process G to ensure page and line alignment. Note: upon return 
from any of the overflow procedures, and assignments to hidden variables that 
have been made by calls on descriptive procedures will cause adjustment to the 
corresponding variables Hl, H2, H3, H4, H5, H6, H7, H8. 


IXAMPLE : 


Notice that the programmer has the ability to determine the presence of 
absence of data on a card when using standard format, because of the way 
overflow is defined. The following program, for example, will count the number n 
of data items on a single input card and will read them into Afl], 
A{2],...,A[n]. (Assume unit 5 is a card reader.) 


"PROCEDURE' LAY; HEND (Ee ly. EXIT. Exit) 
‘PROCEDURE’ LIST (ITEM); ITEM (A [N+1] ) ; 
"PROCEDURE' EXIT: 'GomTOo! L2; 

NO; Lit INDIST (5, LAY, Lisr)-; 

N-N + 13; ‘'GOTO' LI; 

L2:; 


OUTLIST 


NLT TCG TT 


Assume; 


ee OUTLIST has been called. 


Ze Lines 1,2,...,p' of the current page have been completed. 

cm Characters 1,2,...,p of the current line (line p' + 1) have been 
completed. 

4. At the beginning of the program p = p' = 0. 

5, Symbols P and P' denote the line size and page size respectively. 

6% There are eight hidden variables H1,H2,...,H8 which correspond to the 


eight layout procedures as follows: 


Hl - FORMAT 

H2 - HLIM 

H3 - VLIM 

H4 =- HEND 

H5 = VEND 

H6 - TABULATION 
H7 = NO DATA 

H8 =- BAD DATA 
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7. The left margin of HLIM is L. 
The right margin of HLIM is R. 
The top margin of VLIM is L'. 
The bottom margin of VLIM is R'. 


STEP 1. (Initialization) 


The hidden variables are set to the following standard values: 
Hl is set to the "standard" format. 

H2 is set so that L=1, R=e, 

H3 is set so that L' = 1, R' =o, 


H4 is set so that the three parameters are all effectively equal to the 
dummy procedure defined as follows: 'PROCEDURE' DUMMY::. 


H5 is set so that the three parameters are all effectively equal to the 
dummy procedure, DUMMY. 


H6 is set so that TAB = l, 


STEP 2. (Set-Up) 


The set-up procedure is called; this may change some of the variables Hl, 
H2, H3, H4, H5, H6. Set T to 'FALSE'. (T is a Boolean variable used to control 
the sequencing of data with respect to title formats; T = 'TRUE'’ means a value 
has been transmitted to the procedure which has not yet been output.) 


STEP 3. (Communication with List Procedure) 

The next format item of the format string is examined. (Note: after the 
format string is exhausted, "standard" format is used from then on until the end 
of the procedure. In particular, if the format string is " , standard format is 
used throughout.) Now if the next format item is a title format, that is, 
requires no data item, we proceed directly to Step 4. If T = 'TRUE! proceed to 


Step 4. Otherwise, the list procedure is activated; this is done the first time 
by calling the list procedure, using as actual parameter a procedure named OUT 
ITEM; this is done on subsequent times by merely returning from the procedure 


OUT ITEM, which will cause the list procedure to be continued from the latest 
OUT ITEM call. 


(Note. The identifier OUT ITEM has scope local to OUT LIST, so a 
programmer may not call this procedure directly.) After the list procedure has 
been activated in this way, it will either terminate or will call the procedure 
OUT ITEM. In the former case, the output process is completed; in the latter 
case, T is set to 'TRUE' and any assignments to hidden variables that the list 
procedure may have invoked will cause adjustment to the variables Hl, H2, H3, 
H4, H5, H6 (which are local to OUT ITEM) and we then continue to Step 4. 
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STEP 4. (Alignment Marks) 


If the next format item includes alignment marks at its left remove them 
from the format and execute process A (a subroutine below) for each "/", process 
B for each "t", and process C for each "J". 


STEP 5. (Get Within Margins) 


Execute process G to ensure proper page and line alignment. 


STEP 6. (Formatting the Output) 


Take the next item from the format string. 


NOTES: 


In unusual cases, the list procedure or an overflow procedure may have 
called the descriptive procedure FORMAT, thereby changing the format string, In 
such cases, the new format string is examined from the beginning, and it is 
conceivable that the format items examined in Steps 3, 4, 6 might be three 
different formats. But at this point the current format item is effectively 
removed from the format string and copied elsewhere, so that the format string 
itself, possibly changed by further calls of FORMAT, will not be interrogated 
until the next occurrence of Step 3. 


Alignment marks at the left of the format item are ignored. If the format 
item is not composed only of alignment marks and insertions, the va'tue of T is 
examined, If T = 'FALSE', undefined action takes place (the pr. ‘rammer has 
substituted a nontitle format for a title format in an overflow procedure, and 
this is not allowed). Otherwise, the output item is evaluated and T is set to 
'FALSE'. Now the rules of format are applied, and the characters X X ...X which 
represent the formatted output on the external medium are determined. (Note 
that the number of characters, s, may depend on the value being output, using 
"A" or "S" format, as well as on the output medium.) 


STEP 7. (Check for Overflow) 


If p +s < Rand p +s < P, where s is the size of the item as determined 
in Step 6, the item will fit on this line, so go on to Step 3. Otherwise, if the 
present item uses "A" format, output a special symbol "y" which is recognizably 
not a basic symbol; this is done to ensure the input will be inverse to output. 
Go to Step 8. 


STEP 8. (Processing of Overflow) 


Perform process H {p+ Ss). Then, af p+ Ss .< Rand p + s<-P,.go to Step. -9; 
otherwise let k min (R,P) - p. Output X)]X2...Xx, set p = min (R,P) and then 
let XyX2..Xsgan = Xx4+] + XK4+2.--Xg. Decrease s by k and repeat Step 8. 
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STEP 9. (Finish the Item) 


Output XyXg...Xg, and increase p by s. Any alignment marks at the right of 
the format item now cause activation of process A for each "/", process B_ for 
each "t", and process C for each "J". Return to Step 8. 


PROCESS A. ("/" Operation) 


Check page alignment with process F, then execute process D and call 
procedure pl of HEND. 


PROCESS B. ("t" Operation) 
If p 3 0, execute process D and call procedure pl of HEND. Then execute 


process E and call procedure pl of VEND. 


PROCESS C. ("J" Operation) 


Check page and line alignment with process G. Then let k = ((p-L+l) % TAB 
+ 1) x TAB + L=- 1 (the next "tab" setting for p), where TAB is the "tab" 
spacing for this channel. If k >» min (R,P), perform process H(k); otherwise 


effectively insert blanks until p = k. 


PROCESS D. (New Line) 


Skip the output medium to the next "line", set p = 0, and set p' = p' +1. 


PROCESS E. (New Page) 


Skip the output medium to the next "page", and set p' = 0. 


PROCESS F. (Page Alignment) 


If p' + 1< L' execute process D until p' =L' - l. tt wef fo UR, 
execute process E, call procedure p2 of VEND, and repeat process F. 
If p' + 1 > P', execute process E, call procedure p3 of VEND and repeat process 
F, 

This process must terminate because 1 < L' < R' and 1 < L < P'. If a 


programmer chooses a value of L' > P', L' is set equal to l. 
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PROCESS G. (Page and Line Alignment) 

Execute process F. Then if p +1 < L, effectively output blank spaces 
until p+1e= HL. 
If p+1%> Ror p+1 3 P, perform process H (p +1). 


This process must terminate because 1< L<Rand1l<tUL< P. If a programmer 
chooses a value of L s P, L is set equal to l. . 


PROCESS H(k). (Line Overflow) 


Perform process D. If k >R, call procedure p2 of HEND; otherwise, call 
procedure p3 of HEND. Then perform process G to ensure page and line alignment. 
Note: upon return from any of the overflow procedures, any assignments to hidden 
variables that have been made by calls on descriptive procedures will cause 
adjustment to the corresponding variables Hl, H2, H3, H4, H5, H6. 


Cee, BSI1 


APPENDIX D. 


PROCEDURES FOR PREPARING ALGOL PROGRAI 


MS FOR COMPILATION AND EXECUTION 


An ALGOL compilation will consist of either a block or ae procedure 
declaration. In the first case, what is produced is a free-standing program 
which may call external procedures but which is assumed to operate otherwise as 
a free-standing program. In the second case the result is a separately compiled 
procedure which may be called by another program. 


Users create programs by entering ALGOL statements into remote and local 
peripheral or terminal devices which are connected to a computer operating under 
the operating system. 


Three modes of operation are available to the user: local batch, remote 
batch, and time-sharing. The only user differences among the three modes are the 
I/O device assignments for the system output and input files, the presence of 
necessary user~-GCOS communication via control cards or command language, and the 
assumed compiler options for the compilation process. 


eee 


In the local batch mode, the system I/O devices are the card reader card 
punch and line printer. The user communicates directly with the operating system 
for system services via the control cards and the usable slave mode 
instructions. The execution of user programs submitted via the local batch mode 
is carried out directly under the operating system. The user's program exists as 
a separate batch job. Input processing is performed by System Input. 


The remote batch mode is equivalent to the local batch mode in capability. 
The only difference is the assignment of the system I/O device to the remote 
terminal as remote files (not direct access) rather than to the local card 
reader and local printer/punch. 


BATCH CALL CARD 
The system call card for ALGOL in batch mode is: 


S ALGOL Options 


Operand Field: 


The operand field specifies the system options. The following options are 
available with ALGOL (standard batch options are underlined): 


LSTIN 
NLSTIN 
LS TOU 
NLSTOU 
DECK 
NDECK 
COMDK 
NCOMDK 
SYMTAB 


DEBUG 


NDEBUG 


DUMP 


ees 


acne 


A listing of source input will be prepared by the ALGOL compiler. 
No listing of the source input will be prepared. 

A listing of the compiled object program output will be prepared. 
No listing of the compiled object program output will be prepared, 
A binary object program deck will be prepared as output. 

No binary object program deck will be prepared. 

A compressed source deck will be prepared as output. 

No compressed source deck will be prepared as output. 

A symbol cross reference report will be prepared as output. 


Source line numbers will be printed with error messages at 
execution time. 


Source line numbers will not be printed with error messages at 
execution time. 


Slave core dump will be given if the compilation activity 
terminates abnormally. 


Program registers upper SSA, and slave program prefix will be 
dumped if the compilation activity terminates abnormally. 


SAMPLE BATCH DECK SETUP 


The following are the required control cards for the compilation and 
execution of a batch ALGOL activity. The $ control cards are fully described in 
the Control Cards Reference Manual. 


pinascemam CY ‘pantesneretnantentee eso aR eis 


weer 


ne, ee Se ee 
SNUMB 
IDENT 
OPTION ALGOL 


& 


ALGOL | Options 


; ALGOL Source Deck (s) 
EXECUTE Options 

Se aes a 

< physical device assignment > 
ENDJOB 


The $ OPTION card with option ALGOL is required for every execution 
activity containing at least one deck produced by the ALGOL compiler. It must be 
the first card of the execution activity. Other options, as desired, may be used 
on this card but ALGOL is required. 


D=2 Boil. 


The $ FFILE and physical device assignment cards are enclosed in braces to 
indicate that they may or may not be required for a particular activity. Cards 
of the form $ TAPE or $ FFILE option define physical devices which are to be 
associated with files referenced in the ALGOL program through calls on _ the 
input/output data transmission procedures. A card of this type is required for 
every referenced file other than 05 and 06 and input files produced with the 
> DATA card. 


The $ FFILE card provides fine control over the characteristics of each 
logical field. The $ FFILE card option DSTCOD (used only with programs generated 
by the ALGOL compiler) is of the form: 


DSTCOD/ (XXX) 


where XXX may be any of the following: 


Mnemonic Device 
PRNTR Line Printer 
BCRDR Card Reader (Binary) 
DCRDR Card Reader (Decimal) 
BCPNCH Card Punch (Binary) 
DCPNCH Card Punch (Decimal) 
MTAPE Magnetic Tape 
DISC Disk 
DRUM Drum 
PTMODS 5/6 channel paper tape 
PTMODD 7/8 channel paper tape 


The destination code supfield (DSTCOD) defines the type of logical device 
which is to be associated with a file, independent of the physical device on 
which the file may reside. In this way the system limits, i.e., P and P', for a 
file are defined. For example, to produce a listing file which must be saved on 
tape for future reference, a $ TAPE DSTCOD/(PRNTR) would define the output as 
destined for a line printer. In the absence of the $ FFILE card or the DSTCOD 
subfield the logical device will be assumed to be the same as the _ physical 
device. 


TIME-SHARING OPERATION 


SIDS 
Seer aa 


Command Language 


SANE HOTS UENO SP REND TE 


The standard means of communication with the Time-Sharing System (TSS) is 
by way of a teletypewriter used as a remote terminal. Other compatible devices 
may also be used, but use of a teletypewriter is assumed in this manual. The 
user may choose either the keyboard/printer or paper-tape teletypewriter unit 
for input/output, or combine both. In either'case, the information transmitted 
to and from the system is displayed on the terminal-printer. Keyboard input will 
be used for purposes of description; instructions for the use of paper tape are 
given under "Paper Tape Input" in this appendix. 


Y 
jt 
a 
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The user "controls" the time-sharing system primarily by means of a command 
language, a language distinct from any of the specialized programming languages 
that are recognized by the individual time-sharing compilers/processors (e.g., 
the Time-Sharing FORTRAN language). The command language is, for the most part, 
the same for users of any component of the time-sharing system; i.e., FORTRAN, 
BASIC, Text Editor, etc. A few of the commands pertain to only one or another of 
the component time-sharing systems, but the majority of them are, in form and 
meaning, common to all component systems. 


The commands relate to the generation, modification, and disposition of 
program and data files, and program compilation/execution requests. The complete 
time-sharing command language is described in Time-Sharing System General 
Information Manual. 


Once communication with the system has been established, any question or 
request from the system must be answered within ten minutes, except for the 
initial requests for user identification (user-ID) and sign-on password, which 
must be given within one minute. If these time limits are exceeded, the user's 
terminal will be disconnected. 


D-4 BS11l 


| Time-Sharing 


Valid time-sharing system commands for ALGOL are listed in 
fully described 


These «commands are 
Information Manual. 


Table Del. 


Commands for ALGOL 


Command 


ABC 
ACCESS 
ASCASC 


ASCBCD 

4 AUTOMATIC 
BCDASC 
BPRINT 
BPUNCH 
BYE 
CATALOG 

@ DELETE 
DONE 
EDIT 

€@ ERASE 
FDUMP 
GET 
HELP 
HOLD 
JABT 
JOUT 
JISTS 
LENGTH 

a LIB 
LIST 

2 NEW 
NEWUSER 
NO PARITY 

2 OLD 

4 PARITY 


RECOVER 


@ RESEQUENCE 


ROLLBACK 
# ROLLBACK 

@ RUN 

2 SAVE 
SCAN 
SEND 
STATUS 

@ SYSTEM 

2 TAPE 


in 


the 


Time-Sharing 


ALGOL Time-Sharing System Commands 


Applicable 
At 
Build Mode 


Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes. 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes. 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
No 
Yes 
Yes 
Yes 
Yes 
Yes 
No 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 


4 not applicable at subsystem-selection level 


Table 
System 


Del. 


General 


The user, to initiate communication with the time-sharing system, performs 
the following steps: 


@ Turns on the terminal unit 
® Obtains a dial-tone 
@® Dials one of the numbers of his time-sharing center 


The user will then receive either a high-pitched tone indicating that his 
terminal has been connected to the computer or a busy Signal. The busy signal 
indicates, of course, that no free line is presently available. 


Once the user's terminal has been connected to the computer, the 
time-sharing system begins the log-on procedure by transmitting the following 
message: 


HIS SERIES 6000, SERIES 600 ON(date)AT (time) CHANNEL (nnnn) 


where time is given in hours and thousandths of hours (hh.hhh), and nnnn is the 
user's line number. | 


Following this message, the system asks for the user's identification: 
USER ID -= 


The user responds, on the same line, with the user-ID that has been 
assigned to him by the time-sharing installation management. This user-ID 
uniquely identifies a particular user already known to the system, for the 
purposes of locating his programs and files and accounting for his usage of the 
time=sharing resources allocated to him. An example request and response might 
bes 


vee cD ey 


Note: A carriage return must be given following any complete response, command, 
or line of information typed by the user. 


(The user's response is underlined here for illustration). After the user 
responds with his user-ID, the system asks for the sign-on password that was 
assigned to him along with his user-ID, as follows: 


PASSWORD 
ABKHEKBHZAKEK 


The user types his password directly on the "strikeover" mask provided 
below the request PASSWORD. The password is used by the system as a check on the 
legitimacy of the named user. The "strikeover" mask insures that the password, 
when typed, cannot be read by another person. (In the event that either the 
user-ID or password is twice given incorrectly, the user's terminal is 
immediately disconnected from the system.) At this point, if the accumulated 
charges for the user's past time-sharing usage equals or slightly exceeds 100 
per cent of his current resource allocation, he will receive a warning message. 
If his accumulated charges exceeds 110 per cent of his current resources, he 
receives the message: 


RESOURCES EXHAUSTED = CANNOT ACCEPT YOU 


and his terminal is immediately disconnected. (The user may also receive the 
following information message if his situation warrants it: 


n BLOCKS FILE SPACE AVAILABLE 


(This condition does not affect the log-on procedure.) 


D-6 BS 


Assuming that the user has responded with a legitimate user-ID and password 
and has not over-extended his resources, the time-sharing system then asks the 
user to select the processing system that he wants to work with; this is called 
the system-selection request. In this case, the user would respond with ALGOL: 


SYSTEM ? ALGOL 


The user is then asked whether he now wants to enter a new program (NEW) or 
if he wants to retrieve and work with a previously entered and saved program 
(OLD); the request message is: 


OLD OR NEW - 


If the user wishes to start a new program (i.e., build a new source file), 
he responds simply with: 


NEW 


If, on the other hand, he wants to recall an old source-program file, he 
responds with: 


OLD 
where filename is the name of the file on which the old program was saved during 


a previous session at the terminal (see the SAVE command). 


Following either response, the system types the message "READY", returns 
the carriage, and prints an asterisk in the first character position of the next 
lines: 


An example of a complete log-on procedure, up to the point where the ALGOL 
system is ready to accept program input or control commands, might be as 
follows: 

HIS SERIES 6000, SERIES 600 ON 10/14/71 AT 14.768 CHANNEL 0012 


USER ID ~ J.P.JONES 


PASSWORD 

ARRHEEKEMX IKE - (user's password is typed over the mask) 

SYSTEM = ALGOL 

OLD OR NEW - NEW - (NEW is shown arbitrarily for 
~~ illustration) 

READY 


a - (the user begins entering input on this 


line) 
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After the message: 


READY 
#e 


the system is in build-mode (as indicated by the initial asterisk) and is ready 
to accept ALGOL program-statement input or control commands. All lines of input 
other than control commands are accumulated on the user's current file. Normally 
the current file will be the file that contains the program he wants to compile 
and run at this session. If he is building a new file (NEW response to OLD OR 
NEW--), his current file will initially be empty. If he has recalled an old file 
(OLD filename) the content of the named old file will initially be on his 
current file, and any input typed by the user -- excepting control commands =-- 
will be either added to, merged into, or will replace lines in the current file, 
depending upon the relative line numbering of the lines in the file and the new 
input. (This process is explained under the heading "Correcting or Modifying a 
Program," below.) 


Following each line of noncommand-language input and the terminating 
carriage response, the system will supply another initial asterisk, indicating 
that it is ready to accept more input. 


A line of ALGOL input -- as distinct from a control command -- can contain 
one of the following: 


ae One or more ALGOL statements. 


2 A partial statement. 


D6 A continuation of a statement left incomplete in the preceding line of 
input. 

4. A comment. 

ae A combination of (3) and (1) or (2), in chat order. 


6. A combination of (1) and (2). 


A line of input must begin with a line-sequence number of from one to six 
numeric characters. The line-sequence number facilitates correction and 
modification of the source program (described below); hereinafter, the 
line-sequence number will be referred to simply as the "line number". 


The line number is always terminated (immediately followed by) a 
non-numeric character. A line number must have a numeric value less than 2 
(262144). If the user wants a numeric in column 1 of an ALGOL statement, a pound 
Sign (#) must immediately follow the line number. An input line consisting only 
of numbers or of numbers followed by a pound sign will ke ignored by the 
compiler. In order to insert blank lines into a program, the line number must be 
followed by at least one blank. 
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Correcting - 


or Modifying a Program 


Keyboard input is sent to the computer and written onto the user's current 
file in units of complete lines. A line of terminal input is terminated by a 
carriage return and no part of the line is transmitted to the system until that 
carriage return is given. Therefore, corrections or modifications can be done at 
the terminal at two distinct levels: 


is 


as 


Correction of a line-in-progress (i.e., a partial line not yet 
terminated). 


Correction or modification of the program (i.e., the contents of the 
user's current source file) by the replacement or deletion of lines 
contained therein, or the insertion of new lines. 


The correction of a typing error that is detected by the user before the 
line is terminated can be done in one of two ways. He may delete one or more 
characters from the end of the partial line or he may cancel the incomplete line 
and start over. The rules are as follows: 


Use of the commercial "at" character (@) deletes from the line the 
character preceding the @ character; use of n consecutive @ characters 
deletes the n preceding characters (including blanks.) 


Examples: 


*ABCDF@E would result in ABCDE being transmitted to the program file. 


*ABCBDEF@@@@GHJ would result in ABCGHJ being transmitted. (The 
characters to be deleted are underlined for illustration. ) 


Use of the CTRL (control) and X keys, depressed simultaneously, causes 
all of the line to be deleted. The characters DEL are printed to 
indicate deletion and the carriage is automatically returned. For 


*ACDEFG CTRL/X DEL (all characters deleted) 
* (ready for new input) 


Correction or modification of the current source file is done on the basis 


of line num 


bers and proceeds according to the following rules: 


Deletion. A "line" consisting of only a line number (i.e., nnn) will 
cause the deletion of any identically numbered line that was 
previously typed or contained on the current file, 


Insertion. A line with a line-number value that falls between the 
Tine-number values of two pre-existing lines will be inserted in the 
file between those two lines. If the line number is less than the 
first line number it is inserted at the beginning of the file; if 
greater than the largest line number, it is inserted at the end of the 
file. 


At any point in the process of entering program-statement input, the LIST 
command may be given, which results in a "clean", up-do-date copy of the current 
file being printed. In this way, the results of any previous corrections or 
modifications can be verified visually. Following the response (or command) OLD 
filename, the LIST command can be used initially to inspect the contents of the 
current source file (i.e., the "old" program). | 


The ALGOL Run Command 


The RUN 


RUN H 


where: 


fs 


fh 


command has the form: 
-nnonn fs = fh; fc(options) flib # fe 


RUN H is the command RUN or RUN H. The latter form is used to 


display a heading line on the terminal giving date, 
time, and SNUMB. 


“nnn nnn is the maximum time in seconds of processor time, 


that the program is to be allowed for execution. 


is the set of file descriptors for source files in the standard 
BCD card image format, in compressed card image format (COMDK), 
Or in time-sharing ASCII format and/or descriptors. for binary 
card image object files. These files serve as inputs to the 
compiler and/or loader. Where a BCD or COMDK source file is 
supplied, fs may also include a descriptor for an alter file in 
BCD format. The alter file must begin with a $ UPDATE card and 
must be in alter number sequence. If there are many BCD or COMDK 
source files in the list, the alter file will update the first. 
Alternatively, the list fs may consist of a single file 
descriptor that points to a previously generated system loadable 
(H*) file. 


A file descriptor consisting of the single character * indicates 
the current file (*SRC). The list is optional and, when missing, 
indicates that only the current file (*SRC) is to be compiled. 


is a single file descriptor of a random file into which the 
system loadable file produced by the General Loader will be 
saved if the compilation is successful. This file will be 
written if no fatal errors occur during compilation. If the 
named file does not exist, a permanent random file of 36 blocks 
will be created and added to the user's catalog. If the field is 
missing, the H* file is generated into a temporary file. The 
presence of this option is valid only when the program indicated 
by the list fs, the ALGOL library, and the user library (if any) 
is bindable (no outstanding SYMREFs). If the General Loader 
indicates tnat outstanding SYMREFs exist, an executable H* file 
will be created, but any reference to an unsatisfied SYMREF will 
cause the program execution to be abnormally terminated (the 
General Loader inserts a MME GEBORT at references to unsatisfied 
SYMREFs. When a MME is encountered during the execution of a 
time=sharing subsystem, GCOS and the Time-Sharing Executive 
Simulate an illegal operation fault.) 


must be included whenever fh, fc, (options), or flib options are 
desired. 
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fc 


(options) 


is a single file descriptor of a sequential file into which the 
compller is to place the binary (C*) result of any indicated 
compilation(s). One object module is written to this file for 
each source program in the file(s) given by fs. If the named 
file does not exist, a permanent linked file of 3 blocks will be 
created and added to the user's catalog. This file will expand 
as necessary to hold the object decks. In this case the field fs 
plus the libraries need not indicate a complete program 
(individual or collections of routines may be compiled and 
saved). When this optional field is missing, a C* file will not 
be generated. When present, the DECK option is turned on for the 
compilation process. 


is a list of options contained within parentheses and 
comma-separated. Some of these options affect the compilation 
process, and some the loading. The following compiler options 
are available for time~sharing; they are described under the 
° ALGOL card; underlined is default. 


DEBUG = Source line numbers will be printed with error messages 
at execution time. 


NDEBUG = Source line numbers will not be printed, 


The remaining options have to do with the loading process. The 
underlined option is the default case. 


GO ~ The program will be executed at the completion of 
compilation. 


NOGO - The program will not be executed at the completion of 
the compilation. If specified, the object program will 
be saved. If no object (H*) save file is specified, 
only the compilation will be performed (the General 
Loader will not be called). 


ULIB - File descriptors exist following the end of the 
options field which locate user libraries which are 
to be searched for missing routines prior to 


searching for them in the system library. 


NOLIB ~ No user libraries are to be used. 
TIME=nnn - The batch compilation and/or General Loader activity 


time limits will be set to nnn seconds: where nnn < 
180. If not specified, nnn is set to 60.: 


CORE=nn - The batch compilation an/or General Loader activity 
core requirment will be set to nnkK+9K or 23K; 
whichever is larger. If not specified, nn is set to 
16. 


URGC=nn - The urgency for the batch compilation and/or General 
Loader activity will be set to nn, where nn < 40. If 
not specified, nn is set to 40. 


TEST ~ A test version of the compiler and/or General Loader 
is to be used for the batch activity. There must be 
an accessed file (in the AFT) of the name ALGOL. If 
these two conditions are met, then file ALGOL will 
be allocated as file code ** in the batch activity. 


REMO ~- Temporary files created for the batch process will 
be removed from the AFT as they are no longer 
needed. This option keeps the number of files in the 
AFT down to a minimum but causes more time to be 
Spent processing each RUN command. 
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NAME=name -~- Provides a name for the main link of the saved H* 
file. May be used both at time of creation of this 
file and subsequently as it is used. This name is 
placed in the SAVE/field of the $ OPTION card. 


Leo is a sequence of file descriptors pointing to random files 
containing user libraries to be searched before the system 
library. 

# must be included whenever the fe option is desired. 

fe is a set of file descriptors for files which will be required 


during execution. Each descriptor must specify a file name (or 
an alternate name, if necessary) of the form nn, where 0l < nn < 
40. This name represents a logical file code referenced by 1/6 
statements in the program. I/O may be teletypewriter-directed by 
specifying a descriptor of the form "nn". File codes 05 and 06 
are implicitly defined for teletypewriter I/O and need not be 
mentioned in the run command. 


Log~Off Procedure 


To terminate one's current session with the time-sharing system and 
disconnect the terminal, the BYE command may be given either in build-mode or at 
the subsystem-selection level: 

*BYE 

or 


SYSTEM «2 BYs 


In either case, a report of the user's time-sharing usage charges is given, 
aS illustrated by the following example, and the terminal is disconnected: 


**RESOURCES USED S$ 4.47, USED TO DATE $ 919.02= 92% 
**TIME SHARING OFF AT 12.655 ON 10/14/71 


Batch Activity Spawned by RUN 


As an example of the simplest case, consider that some source file is 
current in *SRC, and a RUN command is typed with none of the optional fields. A 
job setup comparable to the following will be dispatched to the batch system. 


S) SNUMB nnnnt, 40 

° USERID 

$ IDENT 

S LOWLOAD 36 

S OPTION ALGOL,NOMAP ,NOGO, SAVE/OBJECT 

S USE . TSGF 

$ ALGOL NLSTIN , NDECK 

S LIMITS 2220 

S FILE S*,X1R source file *SRC 
iS) FILE P* 25 diagnostic report only 
S EXECUTE 

S$ FILE P* ,X2R 

$ FILE H*.,X3Ry3R bound program 

S ENDJOB 
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The results of compilation and loading are returned on files pP* and H*, p* 
6 read and scanned for compiler and/or loader diagnostics. These are displayed 
on the teletypewriter and if there have been no fatal errors, the fully bound 
program will be loaded from H* and execution will proceed. 


g Direct-Mode Prog 


ram_Input 


During program execution, keyboard input may need to be supplied to satisfy 
one Or more input statements in the program. Each time input is required, the 
equal-sign character, "=", will be printed at the terminal. The user begins 
typing the input immédiately following the equal sign. A carriage return signals 
the end of the input ‘line. 


An end-of-file condition will be generated when the equal sign is 
immediately followed by a file separator character (control, shift, and L_ keys 
depressed simultaneously), which must be immediately followed by a carriage 
return. 


The ALGOL subroutine library allows multiple output statements to refer to 
the same output line; i.e., line spacing occurs only when the library encounters 
an alignment mark or when the line overflows. When both input from and output 
to the teletype are required, the user must insure that any complete lines which 
are to appear before an input line must be terminated with the proper alignment 
marks. 


It is also possible to input data from a paper tape. The. actual characters 
transmitted to the terminal from an input statement are: carriage return (CR), 
rubout (RO), equal sign (=), and sign-on (X-ON). The sign-on character activates 
the paper tape reader if the reader is in the ready state. A ready state is 
achieved by having the paper tape "loaded" and the reader switches set to "AUTO" 
or "TD-ON". Paper tapes which are to be used in this way should end each line 
with the characters: carriage return (CR), sign off (X-OFF), line feed (LF), 
rubout (RO). The sign»off character turns off the reader but leaves it in a 
ready state for any subsequent READ's. Paper tapes must begin with an 
appropriate leader of RO characters, 


y Termination of Execution 


The use of the BREAK key will terminate program execution. All file output 
buffers, including the teletypewriter buffer, will be flushed, the files will be 
closed, and a NORMAL TERMINATION message will be generated. Control will return 
to the build-mode after the use of the BREAK key. 


Paper Tape Input 


In order to supply build-mode input from paper tape, the user gives the 
command TAPE. The system responds with READY. At this point, the user. should 
position his tape in the reader and start the device. Input is terminated when 
either the end-of-tape occurs, the user turns off the reader, and xX-OFF 
character is read by the paper tape reader, or a jammed tape causes a delay of 
over one second between the transmission of characters. 
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At present a maximum of 80 characters are permitted per line of paper 
characters 


input. Excessive lines will be truncated at 80 
data placed in the next line. A maximum of two disk 


tape 
with the remaining 
links (7680 words) of paper 


tape input will be collected during a single input procedure. All data in excess 


of two disk links will be lost. 


Example of a Time~Sharing | 


Session 


A comprehensive example of program creation, 
modification follows. Explanations are enclosed in 
part of the printout. 


USER ID -BALLARD 
PASSWORD==- 
ABKREERBHIAKK 


and 
not 


correction 
they are 


testing, 
parentheses; 


SYSTEM ?ALGOL 


OLD OR NEW =- NEW 
READY 
*Q0Q10'BEGIN' 
*0020°COMMENT' 
70030 +HLIS: IS THE. OLD GAME OF THE TOWERS OF HRANOT. 
*0040 A NUMBER OF DIFFERENT RINGS @@@@@@ STZED RINGS ARE 
(typing correction) 
*0050 TO BE MOVED FROM POLE 2@1 TO POLE 3 WITH 
*0060 ASSISTANCE FROM POLE 2. ONE RING AT A TIME 
SOO 70 IS MOVED AND A LARGER RING CAN NOT REST ON 
=O) 70 IS MOVED AND A LARGER RING MAY NOT REST ON 
: (replace line 70) 
*0080 A SMALLER; 
*0090# 
*Q100# 
*O E20 "PROCEDURE! HANOI(N,P1,P2,P3); 
*0120 'INTEGER' N,P1,P2,P3; 
*¥O0130 "IF" N=0 ‘THEN’ 'GOTO' EXIT; 
*O0140 HANOI (N-1,P1,P3,P2); 
*0150 OUTPUT3 (6,"/,"MOVE RING\,ZZD," FROM POLE\,ZD," TO POLE\, 
*0160 ZD\,N,P1,P2); 
a ey 0, HANOI (N=1,P3,P2,P1); 
*SOLGO BRIT: 
*O 190 "END" + 
“QO 125 "BEGIN' 
*0200# 
*0210# 
*O220 HANOI 
*QG220 INPUT1(5,"L@ ,N); | 
*OO1LS'INTEGER' N; (insert line between lines 10 and 20) 
*0230# 
*0240 HANOI (N,1, 3,2)? 
*0250# 
*Q260'END' OF ENTIRE PROGRAM 
*0190 "END' OF PROCEDURE HANOI: 
a oil (list corrected program) 
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Boi 


0010'BEGIN' 
QOO1S'INTEGER' N; 
0020'COMMENT' 


0030 THIS IS THE OLD GAME OF THE TOWERS OF HANOI. 
0040 A NUMBER OF DIFFERENT SIZED RINGS ARE 

0050 TO BE MOVED FROM POLE 1 TO POLE 3 WITH 

0060 ASSISTANCE FROM POLE 2. ONE RING AT A TIME 
0070 IS MOVED AND A LARGER RING MAY NOT REST ON 
0080 A SMALLER; 

0090# 

0100# 


0110 "PROCEDURE' HANOI(N,P1,P2,P3); 
0120 "INTEGER' N,P1,P2,P3; 


0125 "BEGIN! 

0130 'IF' N=0 'THEN' 'GOTO! EXIT; 

0140 HANOI (N=-1,P1,P3,P2); 

0150 OUTPUT3 (6,"/,"MOVE RING\,22ZD," FROM POLE\,ZD," TO POLE\, 
0160 ZD\,N,P2,P2); 

0170 HANOI (N~1,P3,P2,P1l); 


0180 EXIT: 

0190 ‘END! OF PROCEDURE HANOT; 
0200# 

02104 

0220 INPUTI(5," ,N);3 

0230# 
0240 
0250# 
O260'END‘' OF ENTIRE PROGRAM 


HANOI(N,1,3,2): 


READY 


*SAVE ALGTEST (save program) 
DATA. SAVED=--ALGTEST 
*RUN (run program) 
NO ERROR IN ABOVE COMPILATION 
15098 WORDS WERE USED FOR THIS COMPILATION 
=3 (type input data) 
MOVE RING FROM POLE 
MOVE RING 2 FROM POLE 
MOVE RING FROM POLE 
MOVE RING FROM POLE 
MOVE RING FROM POLE 
MOVE RING FROM POLE TO POLE 
MOVE RING FROM POLE TO POLE 
7275(10) WAS THE HIGHEST USED 


aa 


TO POLE 
TO. POLE 
1O POLE 
TO POLE 
TO POLE 


BNR Wee 


hm NO lo 
ZWWH WN KN W 


EMORY LOCATION. 


RMAL TERMINATION 
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Refer to the GRITS Programming Reference Manual, for a description of the 
deck setup required for submitting a batch job from a remote terminal. 


PILE SYSTEM INTERFACE 


The File System provides multiprocessor access to a common data base, The 
file system allocates permanent file Space and controls file access for users in 
local and remote batch and time-sharing. The file System is fully described in 
the manual File System. 


TERMINAL/BATCH INTERFACE 


The CARDIN time-sharing subsystem allows the user to submit a batch job 
from a time-sharing terminal. This capability is fully described in the manual 
Time-Sharing System Terminal/Batch Interface Facility. 


PILE FORMATS 


The compiler will accept either ASCII or BCD source input. ASCII source 
input must be in the TSS format (media code 5) and is assumed to have line 
numbers. An ASCII input line of only numbers (or only numbers followed by a 
pound sign) will be ignored. In order to insert blank lines into the program, 
the line number must be followed by at least one blank. 


The subroutine library input routines will accept either ASCII or BCD 
input. ASCII input may be either in the TSS _ format (media code 5) or in 
"standard ASCII" format (media code 6). If an input file is in TSS format, it is 
assumed to have line numbers. The line numbers will be removed by the input 
routines. 


The subroutine library will write either ASCi. or BCD output files. ASCII 
output files will be in the "standard ASCII" format (media code 6). Each output 
line will have one line feed appended to the end of the record. The last word of 
a line will be filled with "rub-out" characters. The alignment mark for 
restoring the page (t) will generate a record of 16 consecutive line feeds. 


In the batch mode of operation, file codes 5 and 6 are assumed to be in BCD 
format. File code 5 is for the card reader (I*) and file code 6 is for the 
printer (P*). If I/O is to be performed on a file which is (or will be) in ASCII 
format, a statement SYSPARAM (FC, 24, 4) must precede the first reference to 
that file. 


in the time-sharing mode of operation, file codes 5 and 6 are assumed to 
reference the teletype (i.e. in ASCII format). Since the destination code 
(DSTCOD) capability is not available in time-sharing, if I/O is to be performed 
on a file other than 5 or 6, a call to SYSPARAM with the appropriate »varameters 
must precede the first reference to that file. 
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APPENDIX E 


BASIC SYMBOLS WITH EQUIVALENT INTERNAL INTEGER VALUES 


SYMBOL VALUE SYMBOL VALUE 
A 32 ee 163 
B 33 ‘GR® 164 
C 34 "NO* 159 
D 35 'EOV'! 154 
E 36 "IMP! 1:55 
F 37 tOR? 156 
G 38 ‘AND LS 7 
H 39 ‘NOT 158 
I 40 : 511 
J Al F 172 
K 42 : 178 
L 43 : 176 
M 44 ( 152 
N 45 ) 174 
O 46 { 153 
Pp 47 ] 173 
Q 48 . 182 
R 49 \ 183 
S 50 : 510 
T 51 = 144 
U 52 % 181 
V 53 "ARRAY' 124 
W 54 'BEGIN' 128 
x 55 "BOOLEAN! 133 
Y 56 ‘CODE 140 
Z, 57 "COMMENT! 180 
0 0 ‘Ho! 148 
l "ELSE! 152 
2 2 "END" 175 
3 3 "EXTENDED REAL! 131 
4 4 "FOR! 143 
5 5 ‘Go TO' 142 
6 6 'IF! 149 
7 7 "INTEGER! 132 
8 8 "LABEL! 138 
9 9 "NONLOCAL ! ad 
'TRUE 509 "OWN! 129 
"FALSE! 508° "PROCEDURE! 135 
+ 165 "REAL! 130 
” 167 "RENAME! 184 
* 168 "STEP! 145 
/ 169 "STRING! 139 
% 170 "SWITCH' 136 
t 171 'THEN' 150 
hs. 160 ‘UNTIL’ 146 
"EO! 161 "VALUE! 137 
"EO" 162 'WHILE' 147 


APPENDIX F 


STACK TRACING ROUTINE 


To print the stack and non-procedural variables and/or to give an octal 
dump when an error is detected by the ALGOL run-time routines. 


eee 


The action to be taken is governed by the options on a $ USE control card. 
The two options are .ADUMP and .ADUMR. 


The option .ADUMP gives a decimal dump when the first error is detected. 
Also it gives a dump when the number of errors detected exceeds the maximum 
number allowed (at which time the execution is terminated). It gives a dump when 
the program is aborted by GCOS. 


The option .ADUMR gives an octal dump of all of memory when the first error 
is detected. 


The $ USE card is placed after the $ OPTION card and preceding the program. 
Both .ADUMP and .ADUMR may be used in the same execution activity. 
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APPENDIX G 


ALTERNATE SYMBOL REPRESENTATIONS 


SYMBOL ERNATE (S) 

‘LS? < 

"GR' > 

"GQ! >= 

‘LO! <= 

g NQ 8 /* 

var s= Or ,.= 
3 a 

[ (/ 

} 7) 

88 a 

\ e ) ’ 

: // 


"POWER' or ** 
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APPENDIX H 


THE % OPTION CARD 


A special internal directive card is recognized by the ALGOL compiler. It 
is indicated by the percent sign (%) in column 1 and blanks in columns 2-6. 


Options begin in column 7 (or later) and are separated by commas. 
Currently the following options are available: 


NLSTIN Suppress listing of the source program beginning with the next 
source card. 
LSTIN Resume listing of the source program. 


Suppress symbol cross reference information beginning with the next 
source card. 


Resume symbol cross reference information. 


A binary deck of the link preset data will be punched. 
BOUND Perform array subscript checking. 

NBOUND Discontinue array subscript checking. 

LS TOU Start producing an output listing. 

NLSTOU Discontinue producing an output listing. 


NAPOST Allows ALGOL basic symbol words to be blank delineated instead of 
apostrophe delineated. | 


APOST Resume accepting only apostrophe delineated basic symbol words. 
The LSTIN directive is inoperable unless the LSTIN option is in effect from 


the $ ALGOL control card. The NLSTIN/LSTIN options allow listing only selected 
portions of the source program. 


The use of the XREF/NXREF options allow obtaining only selected portions of 
the symbol cross reference table. They are not dependent on the SYMTAB option 
on the $ ALGOL control card. | 


The use of the LKDATA option causes the compiler to generate a binary deck 
containing the link preset data which would normally be written on the LF file. 
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The BOUND option causes the compiler to generate coding which will test the 
value of each subscript in an array reference. If the value is within the range, 
defined by the lower and upper bounds in the array declaration, no action is 
taken. If the value is too small, the error message 


<< <SUBSCRIPT #XX IS TOO SMALL. LOWER BOUND USED. ALTER YYYYY >>> 


is printed and the value of the subscript will be replaced by the value of the 
lower bound. If the value of the subscript is too large, the error message 


<<< SUBSCRIPT #XX IS TOO LARGE. UPPER BOUND USED. ALTER YYYYY >>> 


is printed and the value of the upper bound is used as the subscript. The option 
NBOUND causes the compiler to stop generating coding for checking subscripts. 
The BOUND/NBOUND options allow checking the value of subscripts in only selected 
portions of a program. 


The LSTOU/NLSTOU options are the same as used for the $ ALGOL control cara. 
However, when used on the % OPTION card, an output listing of selected portions 
of the program is permitted. 


The NAPOST option allows the ALGOL basic symbol words such as BEGIN and END 
to be blank-separated instead of apostrophe-separated. The following rules 
govern the recognition of these words by the compiler. 


Blank Delineated 
Preceded by at least one character. 


Followed by at least one character. 


Two basic symbol words need only one 
blank character between them 


(JBEGIN#INTEGERJ) . 


Neither the seimicolon, the end of 
card, nor any special character will 
be preceding or trailing blank char- 
ter. 


The basic symbol must be completely 
spelled out. 


No blanks are permitted between 
characters of a word (BBOTO~ may not 
be written as #GOMTOD). 


Preceded by one and only one apostrophe. 
Followed by one and only one apostrophe. 


Two basic symbol words need two apostro- 
phes between them - one trailing and one 
preceding ('BEGIN' ‘INTEGER'). 


Neither the semicolon, the end of card, 
nor any special character will be ac- 
cepted in lieu of the preceding or 
trailing apostrophe. 


Only the first three characters are used 
to compare (e.g., 'BEG' will be accepted 
as 'BEGIN'). 


Blanks are not significant. 
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INDEX 


"ARRAY! 
"ARRAY! 
"ARRAY' DECLARATIONS 
'ARRAY', "OWN! 


"ELSE ' 
CONDITIONAL, ‘ELSE!’ 
CONDITIONAL, n 'IF* CLAUSES, 'ELSE' 
CONDITIONAL, TWO ‘IF" CLAUSES, ‘ELSE’ 


‘FOR! 
'FOR' GENERAL 
'FOR' STATEMENTS 
'FOR', 'STEP' CLAUSE 
'FOR', 'WHILE'’ CLAUSE 
'FOR', EXPRESSION 


‘GO TO! 
'GO TO' STATEMENTS 
'GO TO', CONDITIONAL DESIGNATOR 
'GO TO', LABEL 
"GO TO', SWITCH DESIGNATOR 


ae a 
"IF" CLAUSE ARITHMETIC EXPRESSION 
‘IF’ CLAUSE BOOLEAN EXPRESSION 
ASSIGNMENT, ‘'IF' CLAUSE 
ASSIGNMENT, n 'IF" CLAUSES 
ASSIGNMENT, TWO 'IF' CLAUSES 
CONDITIONAL, n ‘IF’ CLAUSES 
CONDITIONAL, n 'IF' CLAUSES, 'ELSE' 
CONDITIONAL, TWO ‘IF’ CLAUSES 
CONDITIONAL, TWO 'IF' CLAUSES, ‘ELSE' 


"LINK' 
"LINK' DECLARATION 
"LINK' DECLARATION 


"OWN! 
"ARRAY’, '"OWN' 
TYPE, ‘OWN’ 

"PROCEDURE ' 
"PROCEDURE' DECLARATION, FUNCTION DEFINITION 
"PROCEDURE' DECLARATION, SEPARATELY COMPILED 
*PROCEDURE' DECLARATION, SIMPLE 
*"PROCEDURE' DECLARATION, SPECIFICATION PART 
"PROCEDURE' DECLARATION, VALUE AND SPECIFICATION PART 
*"PROCEDURE' DECLARATIONS 
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"STEP! 
'FOR', ‘STEP CLAUSE 


"SWITCH ' 
"SWITCH' DECLARATION 
*"SWITCH' DECLARATION 


"WHILE' 
"FOR', 'WHILE' CLAUSE 


ACTIVITY 
Batch Activity Spawned by RUN 


ALGOL 
A SAMPLE ALGOL PROGRAM 
DEFINITION OF ALGOL 
FORM OF AN ALGOL PROGRAM 
STRUCTURE OF ALGOL 
The ALGOL Run Command 
Time~Sharing Commands for ALGOL 
WRITING AN ALGOL PROGRAM 


ALIGNMENT 
Alignment Marks 


ALPHA 
Alpha Format 


ALTERNATE 
ALTERNATE SYMBOL REPRESENTATIONS 


ARITHMETIC 
‘IF’ CLAUSE ARITHMETIC EXPRESSION 
ARLTHMETIC EXPRESSION. 
Arithmetic Operators 
SIMPLE ARITHMETIC EXPRESSION 


ASSIGNMENT 
ASSIGNMENT STATEMENTS 
ASSIGNMENT, 'IF' CLAUSE 
ASSIGNMENT, n 'IF' CLAUSES 
ASSIGNMENT, SIMPLE 
ASSIGNMENT, TWO 'IF' CLAUSES 


BAD 
BAD DATA 


BATCH 
_ BATCH CALL CARD 
BATCH MODE 
Batch Activity Spawned by RUN 
REMOTE BATCH INTERFACE 
SAMPLE BATCH DECK SETUP 


BLOCK 
BLOCK 


BOOLEAN 
'TIF' CLAUSE BOOLEAN EXPRESSION 
BOOLEAN EXPRESSION 
Boolean Format 
evaluating a Boolean expression 
Insertions in Boolean Format 
SIMPLE BOOLEAN EXPRESSION 
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CALL 
BATCH CALL CARD 


CARD 
% OPTION CARD 
BATCH CALL CARD 


CLAUSE 
'FOR', 'STEP' CLAUSE 
'FOR', 'WHILE' CLAUSE 
'IF' CLAUSE ARITHMETIC EXPRESSION 
'IF' CLAUSE BOOLEAN EXPRESSION 
ASSIGNMENT, 'IF' CLAUSE 
ASSICNMENT, n 'IF' CLAUSES 
ASSIGNMENT, TWO 'IF' CLAUSES 
CONDITIONAL, n 'IF' CLAUSES 
CONDITIONAL, n ‘'IF' CLAUSES, ‘ELSE? 
CONDITIONAL, TWO 'IF' CLAUSES 
CONDITIONAL, TWO 'IF' CLAUSES, 'ELSE' 


CODING 
Coding 


Command Language 
The ALGOL Run Command 
Time~Sharing Commands for ALGOL 


COMMENTS 
Insertion of Comments 


COMPILED 
"PROCEDURE' DECLARATION, SEPARATELY COMPILED 


COMPOUND 
COMPOUND STATEMENT 


CONDITIONAL | 
"GO TO', CONDITIONAL DESIGNATOR 
CONDITIONAL DESIGNATOR 
CONDITIONAL STATEMENTS 
CONDITIONAL, 'ELSE' 
CONDITIONAL, n 'IF' CLAUSES 
CONDITIONAL, mm "IP" >CLAUSES;. “ELSE 
CONDITIONAL, SIMPLE 
CONDITIONAL, TWO ‘IF' CLAUSES 
CONDITIONAL, TWO 'IF' CLAUSES, 'ELSE' 


CONTROL 
INPUT/OUTPUT CONTROL PROCEDURE 


CORRECTING 
Corrting or Modifying a Program 


DATA 
BAD DATA 
DATA TRANSMISSION PROCEDURES 
NO DATA 
transmission of data 


DECIMAL 
Decimal Numbers 
Decimal Numbers with Exponent 


DECK 
SAMPLE BATCH DECK SETUP 
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DECLARATION 
"LINK' DECLARATION 
"LINK' DECLARATION 


"PROCEDURE' DECLARATION, FUNCTION DEFINITION 
"PROCEDURE' DECLARATION, SEPARATELY COMPILED 


"PROCEDURE' DECLARATION, SIMPLE 


"PROCEDURE' DECLARATION, SPECIFICATION PART 
"PROCEDURE' DECLARATION, VALUE AND SPECIFICATION PART 


'SWITCH' DECLARATION 

"SWITCH' DECLARATION 
DECLARATION TYPES 

STATEMENT AND DECLARATION FORMS 
"ARRAY' DECLARATIONS 
"PROCEDURE' DECLARATIONS 

TYPE DECLARATIONS 

TYPE DECLARATIONS 


DESIGNATIONAL 
DESIGNATIONAL EXPRESSION 


DESIGNATOR 
"GO TO', CONDITIONAL DESIGNATOR 
"GO TO', SWITCH DESIGNATOR 
CONDITIONAL DESIGNATOR 
SWITCH DESIGNATOR 


DESTINATION 
DESTINATION CODE 


DEVICES 
INPUT/OUTPUT DEVICES 


DIRECT-MODE | 
Supplying Direct-Mode Program Input 


DUMMY STATEMENT 
DUMMY STATEMENT 


ELEMENT 
STRING ELEMENT 


EXAMPLES OF LAYOUT PROCEDURES 


EXPONENT 
Decimal Numbers with Exponent 


EXPRESSION 
"FOR', EXPRESSION 
"IF" CLAUSE ARITHMETIC EXPRESSION 
"IF' CLAUSE BOOLEAN EXPRESSION 
ARITHMETIC EXPRESSION 
BOOLEAN EXPRESSION 
DESIGNATIONAL EXPRESSION 
EXPRESSION 
evaluating a Boolean expression 
SIMPLE ARITHMETIC EXPRESSION 
SIMPLE BOOLEAN EXPRESSION 


EXTENDED 
EXTENDED REAL NUMBER 
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FILE FORMATS 
FILE SYSTEM INTERFACE 
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FORMAT 


Alpha Format G=9 
Boolean Format 8-9 
DESCRIPTIVE FORMAT 5-1 
DESCRIPTIVE FORMAT 6-1 
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